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はじめに 



PC- 9800 シリーズ パーソナル コンピュータに は 標準 プロ ダラ ミ ング 言語と して N 88 _BASIC 

(86) が 用意され ています • 
N 88 -BASIC(86) 言語で 記述され た プログラム は， 本体 ROM あるいは 各種 ィ ン タフ エース ボ 

—ドに 塔 載され ている N 88 - BASIC(86) ィ ンタプ リタに よ り 解釈 ノ 実行され ます • 

また， N 88 - 日本語 BASIC(86) システム ディスク を 使用す る ことによ り， ROM に 塔 載され て 

いる N 88 -BASIC(86) インタ プリ タの 持つ 機能に 加え， 次の ような 機能が 利用で きます • 
• ディスク ファイル に対する 入出力 

• 文節 変換 入力 あるいは 表示 選択 入力 方式に よる 日本語 入力 

• 中間色 表示が 可能な 高速 グラ フ ィ ッ ク 機能 (4096 色 中の 任意の 8 色 あるいは 16 色が 選べ ま 
す） 

• 倍精度 数学 関数 ' 
• プログラム 連結 機能 

• モデム- NCU 内蔵 電話機 制御機 能 

本書 は， N 88 -BASIC(86) 言語が 持つ 機能 を コマンド • ステ一 ト メ ン ト ノ 関数 単位に 解説した 
説明書 (文法書) です. 

N 88 - BASIC(86) あるいは N 88 - 日本語 BASIC (86) インタ プリ タの 操作 法， 動作 環境 あるいは 

N 88 -BASIC(86) 言語機能の 応用 的な 説明， 具体的な プログラミングの 方法に 関して は， 本体に 

本書と ともに 添付され ている 「ユーザーズ マニュアル」 を 参照して く ださい. 

また， サウンド 制御 命令 あるいは モデム- NCU 内蔵 電話機 制御 命令に 関しても 「ユーザーズ 
マニュアル」 を 参照して ください. 

なお， GP- IB ィ ンタ フェース 制御 関連 命令に 関して は， GP-IB イン タフ ヱ一 スボ一 ドに 添付 
されて いる ユーザ一 ズ マニュアル を 参照して く ださい. 
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1.1 文 

文と は プロ グラ ムの 最小 構成単位です. 

文 は 1 つの 命令から 成ります. 命令 は 命令の 名前と 命令に 与える 情報 （オペランド） から 成 

ります. オペランドに は 定数， 変数， 関数 等 を 指定す る ことができます • 

PRINT 1234 
命令の 名前 オペランド 




1.2 行 

行 は 一般的に 1 つの 文から なり ます. 

行の先頭に は 行 番号 をつ けます. 1 行に は 254 文字の 範囲で 文の 記述が 可能です • 
i 行に は 複数の 文 を 記述す る ことができます. 1 行に 複数の 文 を 記述す る 場合， 各 文 をコロ 
ン （：） で 区切って いきます • これ は 複文 （マルチ ステートメント） と 呼ばれ， 1 行の 範囲 内 

で 任意の 数の 複文が 記述で き ます. 

1.3 行 番号 

行 番号 は 1 か ら 65529 ま での 整数で 指定 します. 

行 番号 は プログラム を メモリ に 格納したり ディスクに セーブした りする 場合の 格納 順序 を 示 
す ものです. 

プログラムの 実行 は 行 番号の 若い 方から 行われます. また， 分岐 （プログラムの 実行 順序 を 
変える こと） や， プログラム 編集のと きに も 使用され ます. 

行 番号が なく， いきなり 文が 記述され ている 場合， リタ一 ンキ一 の 入力に よりその 文 
は 直ちに 実行され ます. 

先頭に 行 番号が 記述され ている 場合， その 行 は プログラム を 構成す る 1 つの 行と して 
メモリ に 格納され ます. 

1.4 キャラクタ セッ ト 

使用で き る 文字 は 次の とおり です. 
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英 大文字， 英小文字， 数字， カナ， 特殊 記号， グラフィック キャラクタ， 日本語文字 



なお 英 大文字と 英小文字 は， 特定の 場所 (たとえば 文字 定数の 中… 文字 定数に 関して は 「1.6. 2 
文字 定数」 を 参照して ください） を のぞき， 同じ 意味に 解釈され ます. 

1.5 特殊 記号の 使い方 

演算子 （十，—， *，Z) などの 他に も 特別な 意味 を 持つ 記号が あります. ここで その 意味 を 
まとめて 説明して おきます. 

1. ピリオドに） 

最近に 処理の 対象 となつ た 行 番号の 値 を 示す 記号 と して 使用す る こ と がで きます. たとえ 
ば， 新しい 行 を 挿入した， エラ一 が 発生した などの 行です. 

例） UST . 

2. マイナス 記号 （一） 

LIST, DELETE 命令な ど 行の 範囲 を 指定す る 時， 何 行から 何 行までと いう 場合に 使い ま 

す. 算述 演算子の 負号と 同じ 記号です. 
例） DELETE 100-200 

3. コロン （ ： ） 

マルチ ステートメントの 区切り と して 使います. 
例） A = B + C ： PRINT A 

4. コンマ" ） 

パラメータが 並ぶ 場合 その 区切り と して 使用され ます. 
例） INPUT A， B， C 

COLOR 7,，， 0 

5. セミコロンに） 

PRINT 文な どの 区切 り と して 使い ま す. 
例） PRINT 、、 k = " ； A 

6. アポ ス トロ フィ （ ， ） 

REM 文 （注釈 文） の 代用と して 使えます. 

7. ク エツ シ ヨン マーク （？） _ , 
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8. ァスタ リスク （*) 

ラベル 名の 先頭に 付けます. 

9. スペース 

原則として 文字 定数に 含まれて いる スペース 以外の スペース は 無視され ます • ただし 命令 
の 名前の 直後に は 必ず スペース を 入れなければ なり ません， 



1.6 定 



数 



1.6.1 定数の 種類 

定数に は 以下の ものが あり ます. 



厂 文字 定数 （日本語文字 も 含む） 厂 10 進 形式 



定数 一 



一 数値 定数 一 



1 実数お 



[ 



8 進 形式 
16 進 形式 




単精度 型 
倍精度 型 




定 小数点 形式 
浮動小数点 形式 
固定 小数点 形式 
浮動小数点 形式 



1.6.2 文字 定数 

文字 定数と は， 255 文字 以下の ダブル クオ一 テーシ ヨン n で 囲まれた 英数字， カナ 文字， 
記号なら びに 日本語文字 などの 列の ことです. なお， （つ を 文字 定数 中に 直接 記述す る こと は 

できません. n を 文字 定数と したい 場合， 例 ほ) のように 特殊な 方法 を 用います • 

例） （1) "Good Morning 7 ' 



(2) NN 123456789 



(3) 



一 ソナル コンピュータ" 



(4) 、、日本語〃 

(5) CHR$(&H22)+ 、、1 2 3 4 " + CHR$(&H22) 



1.6.3 数値 定数 

数値 定数 は， 整数 型， 実数 型に 分けられ， それら は 正 あるいは 負の 数， または 0 です • 
負の 数の 前に 必ず 符号 をつ けなければ なりません が， 正の 数の 前の 符号 は 省略す る ことが で 
きます. 
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1.6.4 整数 型 

(1) 10 進 形式 

一 32768 から +32767 までのす ベての 整数， または， 数の 後に ％ を つけた もの. 小数点 を 
つける こと はでき ません. 
例） 32767 
-123 

32767%^ ^ 整数 を 表す. 

(2) 8 進 形式 

頭に &0 または &を 伴った， 0 から 7 までの 数字の 並び. 
&0 〜& 177777 の 範囲 
例） & 12345 

& 07777 

(3) 16 進 形式 • 
頭に &H を 伴った， 0 から F までの 並び. 

例） &H100 
&HFFFF 

注意 ： 8 進 形式 または 16 進 形式で 入力され た 数値 は， PRINT，LPRINT では 10 進 形式で 
出力され ます. 

1.6.5 実数 型 

実数 型 は， 単精度 型と 倍精度 型に 分けられます. 

1.6.6 単精度 型 

有効 桁 7 桁の 精度で 格納され ます. 出力のと き は 7 桁 目が 四捨五入され， 6 桁 以下で 表示 さ 
れ ます. 扱える 数値 は， 一 1.70141E+38〜1.70141E+38 です. 

(1) 7 桁 以下の 実数 

(2) E を 使った 指数 形式 

(3) 最後に ！ を 伴った 数 
例） 1.23 

一 7.09E — 06 
3525 • 68 
3.14 ！ 



1.6.7 倍精度 型 

有効 桁 16 桁の 精度で 格納され， 16 桁 以下で 表示され ます • 

(1) 8 桁 以上の 数 

(2) D を 使った 指数 形式 

(3) 最後に # を 伴った 数 
例） 1234567890 

一 1 . 09432 D — 06 + 0 • 3141592653 D + 01 

56789 • 0# 
8657036.1543976 

1.7 変 数 

1.7.1 変 数 

プログラム 中で 使われる 値 を 格納す るた めの エリ ァに， 英数字から 成る 名前 を 対応 させた も 
のが 変数です. 

変数の 値 は， プログラマ によって 定義され， 演算， 参照な どに 使う ことができます. 数値 変 
数 は， 値が 割り当てられる まえに 参照され たら 初期値と して 0 が 割り当てられ， 文字 変数の 場 

合， ヌル ストリング （空の 文字列） が 割り当てられます • 
1.7.2 変数 名と 型 宣言 文字 

変数 名 は 最大 40 文字の 英字で 始まる 英数字と ピリオド し） で 表され， そのす ベて を 区別し ま 



予約語 を 含んだ もの は 構いません. ただし， FN で 始まる 変数 名 は 許されません. また 英文 字に 
おいて 大文字， 小文字の 区別はありません • 

同じ 変数 名で も 型が 違えば 区別され ます. 変数の 型 は 型 宣言 文字に よって 決まり， 型 宣言 文 
字 は 変数 名の 最後に つけて， その 変数の 型 を 表します. 型 宣言 文字 を 省略す ると， 、ソ" がつ い 
ている とみな されます （単精度 実数 型 変数と なる）. 





い.） であって はなり ません が, 



型 宣言 文字 



# 
$ 



整数 型 

単精度 実数 型 
倍精度 実数 型 

文字 型 



例 2) 



A 



A% 
A$ 



れらは 区別され る 力、 A と A! は 同じ. 



変数の 型 を 宣言す るのに もう 1 つ 便利な 方法が あります. それ は DEFINIDEFSN^DEF- 



DBL, DEFSTR の 型 宣言 文 を プログラム 中で 用いる 方法です. これに ついては 2 章で 詳しく 
明し ます. 



1.7.3 配列 変数 

配列と は， 1 つの 変数 名で いくつかの 要素 を 参照す る ことので きる 変数です. 配列 変数の そ 
れぞれ の 要素 は， 整数 または 整数 表記に よる 添字に よって 参照され ます. 

配列 変数の 次元 は 1 行 (255 文字） 中に 記述で きる 範囲 内で 設定す る ことができ， 添字 は メモ 
リの 範囲 内で 許されて おり， これらの 大きさ は DIM 文 （2 章 参照） で 宣言し ます. ただし， 各 添 
字 は 原則として 0 から 始ま り ますから， 実際の 要素 数 は 添字の 数十 1 となり ます. 
例） DIMA(IO) 1 次元 配列， 要素の 数 =11 

DIMTA(10, 50) 2 次元 配列， 要素の 数 11x51 = 561 

DIMTTA$(2, 5, 3) 3 次元 配列， 要素の 数 3X6X4 =72 

注 ： 各 添字の 数が 10 以下の 時 は DIM 文に よる 宣言 を 省略す る こ とがで きます， 



1.7.4 予約 変数 

次の 変数 は， ユーザ一 によって 一般の 変数と して 使う こと はでき ません. 



TIME$ 



DATE$ 



MID$ 
ERL 



ERR 



現在の 時分 秒 を HH ： MM ： SS の 形で もっています. 同じ 形で 代入す 



る こと もで きます. 




つてい ます. 同じ 形で 代入す 



る こと もで きます. 




エラーの 生じた 時， エラーが 発生した 行 番号 を もっています. 代入す る 
こと はでき ません. 

エラーが 発生した 時， 生じた エラーの エラ一 コード を もっています. 代 
入す る こと はでき ません. 
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1.8 型変換 

数値 データ は， 必要に応じて その 型から 他の 型に 変換す る ことができます • ただし， 文字 型 

と 数値 型の 間で この 変換 を 行う こと はでき ません. 
(D ある 型の 数値 データが， 違った 型の 数値 変数に 代入され た 場合， 数値 は， その 変数 名に 

よって 宣言され た 型に 変換され ます. 

例） 10 ABC% = 1. 234 
20 PRINT ABC% 
RUN 

1 

(2) 精度の 違う 数値 間の 演算の 場合， 精度の 高い 方に 変換され て， 演算が 行われます • たと 
えば， 10#ノ3 の 場合， 10#Z3# として 演算が 行われます • 
例） 10 A# = 10#Z3 



20 B#=10#Z3# 



30 
RUN 




B# 



3 • 333333333333333 3 • 333333333333333 



(3) 




, 扱われる 数値 はすべ て 整数に 変換され， 結果 は 整数で 与えられます 



例） 10 A = 12. 34 
20 B=NOT A 
30 PRINT B, A 
RUN 
一 13 



12. 34 



実数が 整数に 変換され る 場合 は， 小数点 以下 は 
える 範囲 を 超えた 場合 は エラ一 が 起こ り ます. 



、 m 



例) 



10 A% = 34.4 
20 B% = 34.5 
30 PRINT A%, B% 



RUN 

34 



35 



10 A# = 1.234E+07 

20 B% 二 A# 

30 PRINT B%, A# 

RUN 

Overflow in 20 



(5) 倍精度 変数が 単精度 変数に 代入され た 時 は， 変数の 値 は 有効数字 7 桁に 丸めた ものと な 
ります. 単精度 変数の 精度 は 7 桁で あり， もとの 倍精度の 数値との 誤差の 絶対値 は， 5.96 



E— 8 以下と なり ます. 
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例） 10 A#=1.23456789# 
20 B!=A# 
30 PRINT A#, B! 
RUN 

1 . 23456789 1 . 23457 

倍精度 変数 （あるいは 倍精度 定数） と 単精度 変数 （あるいは 単精度 定数） を 混合して 演算し 
たり， 単精度の 値 を 倍精度 変数に 代入したり すると， 単精度 値に 変換す る 際， 有効 桁 以降の 桁 

に 変換 誤差が 混入 します の で 注意 してく ださい. 

例） 

① 精度の 異なる 数値に よる 演算 （演算 結果に 変換 誤差が 混入す る） 

好ましくない 例 

A#=1.41421356#+0.12 

次の よう に すれば よい. 

A# = 1.41421356#+0,12# 

② 精度の 高い 変数に 対する 精度の 低い 値の 代入 

好ましくない 例 
A# = 3.1415 
次のように すれば よい. 
A# = 3.1415# 



1.9 式と 演算 




単に 文字 や 数値， あるいは 変数 だけ 



の もの をい います. 

例） 、、BASICT 

3.14 
10 +3/5 
A + BZC — D 
TAN (DO) 



BASIC の 演算 は 5 つに 分類され ます 

1. 算術 演算 

2. 関係 演算 

3. 論理演算 

4. 関数 

5. 文字列 演算 
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1.9.1 算術 演算 

算術 演算子に は 次の ような ものが ありま す. 



演算 M 

指数 演算 XAY 

負号 -x 

乗算， 実数の 除算 X * Y， X/Y 
加算， 減算 X 十 Y， X-Y 

演算の 実行 順序 を 変更す る 場合 力 ッ コ を 使用し ます • 力 ッコの 中の 演算子 は 他の 演算より 先 
に 実行され ます. 力 ッコ 内に おいて は 通常の 実行 順序に 従います • 

次に 実行 例 を 示します. 





代数 表記 


BASIC の 表記 


1) 


2X + Y 


2* X + Y 


2) 


Y+2 


XZY + 2 


3) 


X + Y 
2 


(X + Y)/2 


4) 


X 2 + 2X + 1 


XA2 + 2* X +1 


5) 


X Y2 


XA(YA2) 


6) 


(X つ 2 


XAYA2 


7) 


Y( — X) 


Y ネー X 




(1) 整数の 除算と 剰余の 計算 

整数の 除算 は ¥ によって 行われます. 扱われる 数値が 実数の 場合 は 演算が 実行され る 前 

に 小数点 以下が 四捨五入 されます. 商 は 小数点 以下が 切り捨てられた 整数と なります. 
例） 10¥3 = 3 (10/3=3- • -1) 

23.75 辛 5 = 4 (24/5=4 • • • 4) 

剰余の 演算 は MOD によって 行われます. 扱われる 数値が 実数の 場合 は， 演算が 実行 さ 

れる 前に 小数点 以下が 四捨五入され ま す. 結果 は 整数の 割 り 算の余 り です. 
例） 13.3 MOD 4=1 (13/4=3- • • 1) 

25.68 MOD 6.99 = 5 (26/7=3 - • -5) 



(2) 0 での 除算 

式の 実行時に 0 での 除算が 行われた 場合 は， エラ 一メッセージ を 出力し ますが， 結果 は 
計算機が 扱う ことので きる 最大の 数と みなし， それ を 除算の 結果と して 処理 を 続行し ま 

す. 



11 



また， べき 乗の 実行時に， 0 に対して 負の べき 乗 を 行った 場合 も 同様になります, 



例） PRINT 2/0 

/0 

1.70141E+38 
(3) 桁 あふれ （オーバーフロー) 



PRINT OA — 1 
1.70141E + 38 



代入 や 演算の 結果が その 変数の 型 内で 表現す る こ とので きる 範囲 を こえた 場合， 桁 あ ふ 
れが 発生し ます. 

桁 あふれが 起こった 場合， 、、Overflow" エラー を 出力し， 最大の 数 を 結果と して 与え， 処 
理を 続行し ます， 



例) 



PRINT 3A300 



OV 



1.70141E+38 



1.9.2 関係 演算 

関係 演算子 は 2 つの 数値 を 比較 するとき に 用います. 結果 は， 真 （一 1)， 偽 （0) で 得られ， 

(IF 文 参照). 




I 係 演算子 



<>,>< 

< 

> 

ぐ =, = ぐ 
>=, => 



等しい 

等しくない 

小さい 

大きい 

小さい か 等し レ 



m 

X = Y 

X<〉Y, XXY 

X<Y 

X>Y 

X<=Y, X=<Y 



大きい か 等しい X〉=Y, X=〉Y 



注意 ： = は 代入 文 にも 使う の で 注意す る こと 



IF 文の 中での 使い方の 例 を 次に 示します. 
IF X = 0 THEN 1000 
IF A + B< >0 THEN X = X + 1 : Y = Y+1 




1.9.3 

論理演算 子 は 複数の 条件 を 調べたり， ビッ 卜 操作 や ブール 演算 を 行ったり する のに 用います 

, ビットごとに 0 または 1 を 結果と して 与えます • 
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各 論理演算 の 内容 を 次に 示します 

NOT = not (否定） 



X 
1 
0 



NOT X 
0 
1 



AND 二 and (論理 積) 



X 
1 
1 

0 
0 



Y 
1 

0 

1 

0 



X AND Y 



1 



0 
0 
0 



OR = inclusive or (論理和） 



X 0 R = exclusive or (排他的 論理和) 



X 
1 

1 

0 
0 



Y 
1 
0 

1 

0 



X OR Y 
1 
1 

1 

0 



X 

1 
1 

0 
0 



Y 
1 
0 

1 

0 



X XOR Y 

0 

1 

1 
0 



MP = implication (包含） 



E Q V = equivalence (同値） 



X 
1 
1 

0 
0 



Y 

1 

0 
1 
0 



X IMP Y 



1 



0 
1 
1 



X 

1 
1 

0 
0 



Y 
1 

0 

1 

0 



X EQV Y 



1 



0 
0 

1 



論理演算 子 も 関係 演算子の ように， プログラムの 流れ を 変える のに 用いられます • この場合， 




例) 



(1) IF X<0 OR 99<X THEN 

(2) IF 0<X AND X く 100 THEN X=0 

(3) IF NOT (A = 0) THEN 20 

(1) X が 負 または， 99 より 大きければ， 行 番号 1000 へ 飛ぶ • 

(2) X が 正で かつ， 100 より 小さければ， X に 0 を 代入す る 

(3) A が 0 でなければ， 行 番号 20 へ 飛ぶ. 



論理演算 子 は 演算の 前に 扱う 数値 を 一 32768 から +32767 までの 2 の 補数 表示の 整数に 変換 



します. もし, 



プ 




外と なれば、、 Overflow" エラ一 となります， もし， 0 ( 偽） と一 1 ( 真) 



しか 与えられなかったなら， 論理演算 子 は o と 一 1 しか 結果と して 与えません. 

指定され た 論理演算 では， この 整数に 対し ビットごとに 演算 を 行います • したがって， 論理 
演算子 は バイ ト データ を ある ビッ ト パターンに 照ら し 合わせて 調べる ことができます. .， 
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たとえば， AND 演算子 は 機器の 1ノ0 ポートの ステータス バイ 卜の 必要な ビッ ト 以外の すべ 
ての ビッ トを マスクす るのに 使えます. また OR 演算子 は ある 2 進数 を 作る ために 2 つの ビッ 
ト パターン を 混合させる ことができます. 

以下の 例 は 論理演算 子が どのよう に 働く かの 例です. 



63 AND 8 = { 



63= (111111) 2 ， 8= (001000) 



2 



したがって， 63 AND 8= (001000) 2 = 8 



一 1 AND 8 = 8 — 1= 




8= (001000) 



2 



したがって，一 1 AND 8 = 8 



12 OR 11 = 15 



12= (1100) 2 ， 11= (1011) 



2 



したがって， 12 OR 11= (1111) 2 =15 



32767 OR —32768= - 1 



32767= (Olllllllllllllllh 
一 32768= — （1000000000000000) 2 

したがって， 32767 OR —32768= (111111111111111) 2 二 — 1 



12 XOR 11=7 12= (1100) 2 ， 11= (1011) 2 



したがって， 12 XOR 11= (0111) 2 = 7 



10 XOR 10 = 0 10= (1010) 



2 



したがって， 10 XOR 10= (0000) 2 = 0 



-X=NOT X — 1 




り 口え たもの （2 の 補数） で 



ある. 



1.9.4 関 数 

関数と は 与えられた ある 引数に 対して， ある 決った 演算 を 行う もので， 値と して は， この 演 
算の 結果 を 返します. 

N 88 -BASIC(86) に は SIN (正弦)， SQR (平方根） などの 数値 関数 や CHR$, LEFT$ など 

の 文字列 関数 等 豊富な 、、組み込み 関数〃 が 用意され ています. これらの 関数に ついては 3 章で 
詳しく 説明し ます. 

また， 、、ユーザ一 定義 関数" として ユーザ一 が 自由に 定義で きる 関数 機能 もあります. これ は 
2 章の 、、DEFFN〃 の 項で 説明し ます. 
また， これらの 初等 関数 （SIN 関数な ど） は， 弓 I 数が 倍精度の とき は 倍精度と なり， 引数が 



例） A = SIN(3.14)+COS(3.14) 
PRINT 2， 2*2， SQR (2) 
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1.10 文字列の 演算 

1.10.1 文字列の 連結 

文字列 は 演算子 + によつ て 連結す る ことができます. 

^IJ) 10 A$= 、、NECT ： B$= "PERSONAL ク : C$= "COMPUTER ク 
20 D$=A$+ 、、 7/ + B$+ 、、 " + C$ 
30 PRINT D$ 
RUN 

NEC PERSONAL COMPUTER 

1.10.2 文字列の 比較 

文字 も 数値の 比較に 用いられる ものと 全く 同じ 関係 演算子 を 用いて 比較す る ことができ ま 

す. 

=, <,>,<>,><，<=, = <,>=, = > 
文字列の 場合 それぞれの 文字列の 最初から 1 文字ず つ， 文字の 比較 を 行います • もし 相互に 

全く 同じ 文字列の 場合 は， その 2 つの 文字列 は 等しくな ります が， 1 箇所で も 違った 場合 は， 
その 文字の キャラクタ コード （APPENDIX C の キャラクタ コード 参照） の 大きい 方の 文字列 
が 大きくな ります. 文字列の 片方が 短 かくて 比較が 途中で 終った 場合 は， 短 かい 文字列の 方が 
小さ く なります. 

文字列の 比較に おいて は 空白な ども 意味 を もちます から 注意して ください • 
例） 、、 tKk" < 、、AB" 

、、BASIC〃 = 、、BASIC〃 
、、X &〃 > 、、X#々 
、、PEN " > TEN" 
ヽ、 cm〃 > 、、CM〃 
、、DES に < "DESKS" 

このように， 文字列の 比較 は 文字列の 内容 を 調べたり， 文字 を アルファベット 順に 並べたり 
(ソ一 卜） する ことに 使う ことができます. 

1.11 演算の 優先順位 

演算 は 次の 順に 処理され ます. 

1. カツ コで 囲まれた もの 

2. 関数 

3. 指数 （べき 乗） A 
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4 


#-& (—) 
只づ、 ノ 




や ， / 


o • 




7 
/ ， 




Q 
O • 


j- 一 


q 


間 係 宣溜早 （く > - tj- y\ 
|巧1 ポ拜讽 j 乂^，ノ，一^こノ 


in 


NOT 


1 1 

丄 丄 • 


AND 
/\ 丄、 u 


12. 


OR 


13. 


XOR 


14. 


IMP 


15. 


EQV 



1.12 ラベル 

プログラムの 流れ を 変える 命令と して， GOTO 文， IF 文 等の 命令が あります が， その 飛び 先 

の 指定 は 一般的に 行 番号 を 使用 します. 
次の プログラム は その 一例です. 

10 INPUT A 

40 PRINT 、、zero" 

50 GOTO 90 

60 PRINT "plus" 

70 GOTO 90 

80 PRINT "minus" 

90 END 

これ は， 10 行で 入力され た 値が 正 か 負か ゼロ か を 調べる プログラムです. ここで 処理の 流れ 

を 変える 命令が 20， 30, 50, 70 行に 使われて いて， その 飛び 先の 指定 はすべ て 行 番号に なって 
います. しかし， この 行 番号 はあくまで 数字の 並びで あり， 我々 に はなじみ にくく， プロ ダラ 
ムの 作成， デバッグ 時に おいて 混乱 を 招く こ とが あり ます. 

ラベル を 使用す る ことにより， このような 問題が 解決され ます. ラベルと は どのような もの 

か を 説明す る 前に， まず その ラベル 名 を 使って 先程の プログラム を 書き換えて みましょう. 
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10 INPUT A 

20 IF A<0THEN * MINUS 

30 IF A>0 THEN *PLUS 

40 PRINT 、、zero〃 

50 GOTO 本 EXIT 

60 *PLUS : PRINT "plus" 

70 GOTO *EXIT 

80 * MINUS : PRINT NV minus ,/ 

90 *EXIT : END 

このように ラベル 名と は， 分岐 先の 目印と して 独自に 付ける ことので きる 名前な のです. 
この ラベル 名の 使用に おいて は， 次の 注意 を 守らなければ なり ません. 

1. ラベル 名の 頭に は 必ず アスク リスク （*) を 付けなければ なり ません. 

2. 先頭の ァスタ リ スクを 除いて， ラベル 名 は 必ず 英文 字で 始まらなければ なり ません. 

3. ラベル 名に 使用で きる 文字 は， 先頭の アスタリスク を 除いて 英文 字と 数字と ピ リオ ド し） で 
あり， 大文字と 小文字の 区別はありません. 

4. 予約語 （PRINT など） を ラベルと して 使用す る こと はでき ません. ただし， 中に 含む 場合 
は 構いません. 

5. ラベル 名の 長さ は， プログラムの 1 行の 許可 範囲 （ 1 行 255 文字） によって のみ 制限 を 受け 
ます. 

6. 参照され る ラベル 名 （呼ばれる 方の ラベル 名） は， 必ず 行の 最初に なければ なりません， 

7. 1 行中で ラベル 名の 後に 続けて 命令 を 記述し， マルチ ステートメント とする 時 は， コロン 
( ： ) または スペース によって 区切り ます. 

以上の ような 制限 を 無視す ると 、、Syntax erro ビ となります. 

その他 参照され る ラベル 名に 同じ ものが あった 場合， 2 重 定義され ている という 意味の 
、、Duplicatelabe ビエラ一 が 生じます • これらの エラーの 検出 は， インタプリタの 場合 他の エラ 
—メッセージの 場合と 異なり， 、、RUN なした 時， プログラムの 実行に 先だって 行われ ますから， 
ラベル 名の エラ一 が あると プログラム を 1 ステップ も 実行す る こ とがで き ません. 

また， この場合の エラ一 メ ッセ一 ジは エラ一 箇所 を 示す く 行 番号〉 は 伴いません. 

ラベル 名 は， プログラム 中で 分岐の 目印と して 使用す る 他， 、、LIST"， 、、DELETE" などく 行 
番号〉 を 対象と する 文の パラメータに はすべ て 使用す る こ とが 可能です. 

例） LIST * START-* LAST 

DELETE *L00P1-*EXIT1 
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第 2 章 • 第 3 章の 見方 



2 章 • 3 章で は 個々 の 命令に ついて 書式， 機能 等 を 説明して います, 
各 命令の 説明 は 次の 構成で 行われて います. 



命令の 名前 （DISK モード) 



ル 
ム 



(DISK モード） N 88 - 日本語 BASIC(86) 




スク から システム を 立ち上げた 場合 （この 



ような 環境 を DISK モードと 呼びます） のみ 有効な 機能で ある こと を 意味し ま 
す. この 機能 は， ROM に 搭載され ている N 88 - BASIC(86) を 使用して いる 場合に 
は 使う ことができません. 



m m 命令の 機能 を 簡単に 示します. 



□ 命令の 記述の 仕方 を 示します. 実際の 入力 時には 次の よう な 決ま り に 従ってく だ 
さい. 

1. アルファベットの 大文字で 示された 項目 は， そのまま 入力し ます. 入力す る 
場合 は， 小文字で も 大文字で も かまいません. ただし， ダブル クオ一 テ一シ 
ヨン （、、） で 囲まれた 文字列 （ファイル 名 以外） は， 大文字と 小文字 を 区別し 



てくだ さい. 

2. 力 ギカ ッコ 



" で 囲まれた 項目 は， ユーザ一 が 指定し ます. 



3. 角力 ッコ 、、に， つ〃 で 囲まれた 項目 は， オプション であり 省略す る ことが で 



きます. ^略した 場合， デフ 才 




直 （BASIC であら かじめ 設定され ている 



値） または 以前に 指定した 値が 適用され ます. 

コンマ （，） で 区切られる 複数の パラメータが あり 省略 可能な 場合， 次の 例の 
ような 書式で 示して います. 

CONSOLE 〔く スクロール 開始 行〉〕 〔， 〈スクロール 行数〉〕 〔， く ファンク ショ 

ン キー 表示 スィッチ〉〕 〔， く カラー z 白黒 スィッチ〉〕 

この場合， 角力 ッコで 囲まれた 内容の 意味 は， パラメータ を 省略す る ことが 
可能で ある こと を 示して います. そこで， 以後の パラメータが すべて 省略 さ 
れた 場合 は， コンマ も 含めて 省略し ますが， 後に 続く パラメータ を 指定す る 



場合 は， それ 以前の コ 



、 



'ぐ 



指定す る 必要が あり ます. 
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OBJ 



^ ン JT ル 
プロ ク ^ ラ厶 



たとえば， 上記の 例で 〈カラー Z 白黒 スィッチ〉 のみ を 指定す る 場合， 次の 

ように 指定し ます. 

CONSOLE … 1 

4. 上記の 力 ギカ ッコ， 角力 ッコ 以外の 記号で カツ コ （ ）， コンマ （，）， セミコ 
ロン （：）， マイナス 記号 （一）， 等号 （=) などの 記号 は 示された 位置に 正 



しく 入力し ます. 



5. 省略記号 、、 



の 続く 項目 は， 1 行の 許す 長さ （255 文字） の 内で 任意の 



回数 繰り返す ことができ ます. 
例 ： く 定数〉 〔， く 定数〉 • • 



〕 の 場合 0， 10， 15 



6. 座標 指定の 所で （Wx， Wy) と 記されて いるの はヮ一 ルド 座標 を， （Sx, Sy) 
は スクリーン 座標 を 表して います. その他 単に （X， Y) と 記されて いるの は 
キャラクタ 座標 を 表して います. また STEP (x， y) という 記法 は 相対 座標 



による 指定が できる こと を 意味して います. 



7. 書式の 中で 〈行 番号〉 




^ る もの は, 




、ると 解釈して ください. 




命令の 使用方法 や 詳しい 機能と それに 関して 注意し なければ ならない 点な ど を 説 
明し 



いくつかの 文 を 交えた プログラム 例と その実 行 結果 を 示します. 



3 章、、 関数〃 の 算術 関数の 中で， 初等 関数 （sin, cos, tan など） は 引数の 値と して 倍精度 型 

• ただし， 




の 数値 を 与える と 倍精度 型で， 
倍精度 関数 機能 は DISK モードで のみ 使う ことができます. 
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AUTO 



A 




行 番号 を 自動的に 発生し ます. 
LJI 式 I AUTO 〔く 行 番号〉〕 〔， 〈増分〉〕 




AUTO 100， 5 

AUTO コマンド は， 指定され た 〈行 番号〉 を 発生し， 行の 入力 待ちになります • 
以後， リターン キーの 入力 ごとに， 
を 自動的に 発生し ます • 〈行 番号〉， く 増分〉 ともに 省略され た 場合に は， 10 が 省略 
値と して 選択され ますが， コンマが あって 〈増分〉 が 省略され た 場合に は， 直前に 
実行した AUTO コマンドの 増分が 用いられます. 

CTRL-C または， ストップ キ一 を 押す と， AUTO コマンド は その 動作 を 中止 
し， BASIC の コマンド レベルに 戻ります. この 時， 最後に 発生され た 行 番号の 行 

は 格納され ません. 

プログラム 中に 既に 存在す る 行と 同じ 行 番号が 発生され た 場合に は， 行 番号の 

《表示され， 注意 を 促します. この 時， 文字 を 入力して 




直後に アスク 

リタ一 ンキ一 を 押す と， その 行 は 新しい 内容に 入れ代わります • また， 何も 入力 
しないで リ ターン キ 一を 押した 場合に は， その 行 は 削除され ます. 

AUTO の モード 中に おいても， 力一 ソル エディ ッ ティ ング 機能 を 利用す る こと 
がで きます. カーソル を 移動して 既に 入力した 行， あるいは 表示され ていた 行の 
ところで， リタ一 ンキ一 を 入力した 場合に は， その 行の 行 番号に 増分 を 足した 行 
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BEEP 



文 例 



内蔵 スピーカ を 鳴らします. 

BEEP 〔く スィッチ〉〕 
BEEP 




内蔵 スピーカ を 鳴らしたり， 止めたり します. 〈スィ ツチ〉 の 値が 1 の 場合 は ON 



(鳴り っぱなし）， 0 で OFF となります. 

また， く スィッチ〉 を 省略した 場合に は 
同様に， 一定 時間 スピーカ を 鳴らします. 



•1 攀. 



INTCHR$(7) を 実行した のと 



ブ a 



ル 
ム 



100 '-- bell 

110 FOR 1=1 

120 BEEP 1 

130 BEEP 0 

140 NEXT I 

150 BEEP 



TO 20 
： FOR 
： FOR 



11 = 1 
11 = 



TO 100 
TO 100 



:NEXT 
:NEXT 
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BLOAD 



(DISK 




ド) 



機械語 プログラム を メモリ 上に ロードし ます • 

BLOAD く ファイル ディスクリプタ〉 〔， 〈口一 




〔， R〕 





BLOAD 、、SUB1〃， R 

リブ タ〉 によって 指定され た， 機械語 

メモリ 上に ロードし ます. 
〈ロード アド レス〉 が 省略され た 場合， BLOAD による ロード は 直前に 実行され 

た DEF SEG 文で 指定 された セグメント ベースに， BSAVE により 機械語 プロ グ 
ラム ファイル を セーブす る 際に 指定した 相対 ァ ドレス を 加えた 番地から 行われ ま 
すが， 〈口一 ドア ドレス〉 が 指定され た 場合に は， 〈口一 ドア ドレス〉 で 与えられた 
番地から ロードし 始めます • したがって， 〈口一 ドア ドレス〉 を 付けて ロードす る 
プログラム は ，セーブされ た 際と 異なる 番地に ロード されても 実行可能な 性質 （リ 

ロケ一 タ ブル） を 持って いなければ なり ません. 

R オプション を 指定す ると， プログラム を ロード 後， 機械語 プログラムの 先頭 
から プログラムの 実行 を 直ちに 開始し ます • この 時， 既に 開かれて いる ファイル 
は その 状態 を 保持し ます • 〈ロード アドレス〉 が 指定され ている 場合 は， 実行 開始 
番地 も DEFSEG 文で 指定され た セグメント ベースに 〈ロード アドレス〉 を 加え 

た 番地になります. 



B 



参照 ： BSAVE， CLEAR, DEF SEG， LOAD 



対象 ファイル ： ディスク， RS- 232C コミュニケーション ファイル 



プ a グラム ] 



100 CLEAR ,&H3E00 
110 DEF SEG-&H3E00 
120 BLOAD "SUB ド'， R 
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BSAVE (DISK モード) 



文 例 




、は RS-232C コ ミ ュニ ケーシ ョ ンフ 



アイ ルに セーブし ます. 



[W ^] BSAVE 




， 〈開始 番地〉， く 長さ〉 



BSAVE 、、SUB1〃， &H100, &H2FF 




メモリ 上に 置かれて いる 機械語 プログラム を, 




リブ タ〉 でお 




定 された ファイルに セーブし ます • 〈開始 番地〉 は， 相対 アドレスで 指定し， 直前 

ン ト のべ一 スァ 

ドレスに この 値 を 加えた 番地 以後の 連続す る 〈長さ〉 バイ 卜の 内容が 機械語 プ ログ 
ラムと して セーブされ ます. 



プ° グラム 1 



参照 ： BLOAD, CLEAR, DEF SEG, SAVE 

対象 ファイル ： ディスク， RS-232C コ ミ ュニケ 一ショ ン ファイル 



100 CLEAR ，& H3E00 
110 DEF SEG-&H3E00 
120 BSAVE "SUB1",0 



• 
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CALL 



文 例 



機械語 サブルーチン を 呼び出 します. 



B 



L 害 式 1 CALL く 変数 名〉 〔(く 引数〉 〔， 〈引数〉 




CALL MUSBR(ARG1， ARG2) 

メモリ 中に 用意され た 機械語 サブルーチンに 制御 を 移します. 

〈変数 名〉 は， 機械語 サブルーチンの 実行 開始 番地 を 相対 アドレスで 指定し， 直 
前に 実行され た DEFSEG 文で 指定され た セグメント ベースに 〈変数 名〉 で 指定 
された 変数に 代入され ている 値が 加えられ， 実行 開始 番地と なります • ここで 用 
いる 変数に は 配列 変数 を 用いる こと はでき ません. 

〈引数〉 は， 機械語 サブルーチンに 渡す 変数 を 指定し ます. 引数と して はすべ て 
の 型の 変数 を 指定す る こ とがで きます が， 定数 や 式 を 渡す こと はでき ません. 

CALL によって 呼び出される サブルーチン は， 機械語の IRET 命令に よ り 



C 



BASIC に 制御 を 戻す ことができます. 



参照 ： BLOAD, BSAVE, CLEAR, DEF SEG 



ル 
ム 



100 CLEAR ,&H3E00 

110 DEF SEG-&H3E00 

120 B し OAD "SAMPLE" 

130 CU し O&H0 

140 WORK -&H100 

150 ARG1X-10 

160 ARG2X=23 

170 CALL CULC(ARG1X,ARG2X) 
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CHAIN (DISK モード) 



文 例 




I 書式 i CHAIN (MERGE) く ファイル ディスクリプタ〉 〔， く 行 番号〉〕 〔， ALL] 〔， DELETE 

〈範囲〉〕 



CHAIN MERGE 、、丁 EST.BAS〜 500， ALL DELETE 500 - 600 





リ プタ〉 で 指定され た ディスク ファイル 内の プログラム を 口 



—ド し， 実行し ます. 



メモリ 上に ある プログラム 中で 使用 中の ファイル は そのままの 状態で， ロード 
される プログラムに 引き継がれます. 〈行 番号〉 は 呼び出された プログラムの 実行 

開始 行 を 指定す る もので， 省略した 場合 は プログラムの 最初から 実行し ます. こ 
こで 指定す る 行 番号 は， RENUM を 実行しても 書き換えられません. また ラベル 
名 も 使う こと はでき ません. 

ALL オプション は 呼び出された プログラムに 変数， 配列 を 引き渡す のに 使い ま 
す. これ を 指定した 場合す ベての 変数， 配列が 引き渡され， 省略した 場合 いっさ 

い 引き渡されません. 必要な 変数， 配列 だけ を 引き渡した いという 場合 は 
COMMON 文 を 使います （COMMON 参照). 

MERGE オプション は， 現在 メモリ 上に ある プログラムと 指定され た プロ グラ 

ムを 混合 （マージ） し， 結果の プログラム を 指定した 〈行 番号〉 から 実行し ます. 〈行 



番号〉 が 省略され ている 場合 は， 混合した プログラムの 最初から 実行し ます. ただ 
し， MERGE オプション を 指定した 場合， 呼び出される プログラム は 必ず ァスキ 
—セーブ (SAVE 参照） された もので なければ なり ません. 

DELETE オプション は MERGE オプション を 指定 する 時の み 意味 を もつ もの 
で， プログラム を 混合す る 前に あらかじめ， メモリ 上の プログラムの 指定した 




を 削除し ます. ここで 指定す る 行 番号の 範囲 は， RENUM を 実行す る ことによ 
つて 書き換えられます • また この 行 番号の 代わりに ラベル 名 を 使う こと もで きま 
す. 

MERGE オプション を 指定した 場合， DEFINT, DEFSNG, DEFDBL, DEF 

STR 等の 宣言 文 は， 連結され る プログラムに 対しても 有効と なり ますが， 
MERGE オプションの 指定がない 場合， これらの 宣言 文 は 連結され る プログラム 
に 何の 効果 も 与えません. 

また， プログラム を 連結す ると， DEF FN あるいは ON GOSUB, ON GOTO 
等の 割り込み 制御 情報 は 無条件に 無効と なります. 
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なお， OPTION BASE は 無条件に 連結され る プログラムに 引き継がれます * 



参照 ： COMMON 



対象 ファイル ： ディスク のみ 



さ。 ングプ "つ 呼ぶ 側 （メモリ 上） の プログラム 

100 DIM I DENT (200) 

110 COMMON I DENT (), COUNT 

120 OPEN "DATA" AS ttl 

130 FIELD «1 ,4 AS I$,20 AS N$ t 50 AS A$ 

140 INPUT "会 貝 番号" ： I 

150 〖F 1=0 THEN GOTO ^PRINTOUT 

160 IF I り 1000 THEN STOP 

170 INPUT "氏名つ 議 El $ 

180 INPUT "住所 "5ADR$ 

190 し SET I$=MKS$(I ) 

200 し SET N$=NAME1$ 

210 し SET A$=ADR$ 

220 PUT 翁 1,1 

230 COUNT=COUNT+l 

240 I DENT ( COUNT ) = I 

250 GOTO 140 

260 ^PRINTOUT 

270 CHAIN "CHAIN2" 

280 END 

呼ばれる 側 （ディスク 内） の プログラム 

1 0 0 COMMON I DENT ( ) , COUNT 

110 FIELD »1,4 AS 1$,20 AS N$,50 AS A$ 

120 IF COUNT =0 THEN STOP 

130 GET #l t I DENT (COUNT) 

140 PRINT "会 貝 番号 ： M :CVS(I$) 

150 PRINT "氏名 ： M ;N$ 

160 PRINT "住所 ： "； A$ 

170 COUNT-COUNT - 1 

180 GOTO 120 
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CIRCLE 




□ 楕円 (円） を 描きます. 



I » 《I CIRCLE 



2 



(Wx， Wy) 
STEP (x， y) 



, く 半径〉 〔， く パレット 番号い〕 〔， 〈開始 角度〉〕 〔， く 終 



了 角度〉〕 〔， く 比率〉〕 〔， F 〔' 



くパ レツ 卜 番号 2> 




〕〕 



CIRCLE (80, 80), 40, 4, 0, 6.28 



VMSM 



ワールド 座標の （Wx, Wy) を 中心とし， 〈半径〉 で 指定され る 大きさの 円 を 描 
きます. 

〈パレ ッ 卜 番号 1〉 が 指定され ると， 指定され たパ レツ トの 色で 円 を 描きます. 
省略され た 場合に は， COLOR 文で 指定され ている フォアグラウンド カラーが 用 
いられます. 

CIRCLE は 通常 円 を 描きます が， 〈開始 角度〉， 〈終了 角度〉 を 指定す ると， 指定 
された 角度の 範囲 内の みに 円 弧を描きます • 角度の 指定の 単位 は ラジアンで， 省 
略 値 は それぞれ， 0 と 2;r です. 

〈開始 角度〉， 〈終了 角度〉 が 負であった 場合に は， その 絶対値 をと り， 正にした 
角度が 用いられ ますが， その 時 中心から 半径が 描かれ ますので 扇形 を 描く ことが 

できます. 〈開始 角度〉， 〈終了 角度〉 は， -2;r から +2;r の 範囲 内 にないと、、 Illegal 
function call" の エラ一 となります. 



n 




0(2tt 



^=3.14159 



〈比率〉 は， （垂直 方向の 半径) Z (水平 方向の 半径） で 指定し ます. ただし， 640 X 

400 ドッ 卜の モードで は 実際に 表示され る 画面 上の 長さの 比率で 示し， 640X200 ド 
ッ 卜の モードで は その 1Z2 の 値 を 指定し ます • 省略され た 場合に は， 640X200 ド 
ッ 卜の モードで は 0.5， 640X400 ドッ 卜の モードで は 1.0 が 用いられます ♦ 
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〈比率〉 が 1 以下の 場合に は， 〈半径〉 は 水平 方向の 半径 を 意味し ます. また 1 以 

上の 場合に は， 〈半径〉 は 垂直 方向の 半径 を 意味し ます. つまり， 640X400 ドット 

1 以上な ら ば 長 細い 楕円 となります. 

F が 指定され た 場合， 円 を 描く と 同時に その内 部 を， 〈パレット 番号 2〉 で 指定 
された パ レツ 卜の 色 または 〈タイ ルス ト リ ング〉 によ り 指定され た 模様 （タイル） で 
ぬりつぶします. 

〈パ レツ ト 番号 2〉 および 〈タイ ルス ト リ ング〉 とも 省略され た 場合に は， 円 を 描 
いた パレ ッ トの 色で ぬりつぶします. 
開始， 終了 角度の 指定が ある 場合に は， 扇形の 内部 をぬ りつぶ します (F が 指定 

された 場合 は， 開始， 終了 角度 は 負で あると みなされます). 
中心 座標 は， STEP を 付け て LP (Last referenced point) か ら の 相対 座標に よ 

り 指定す る こと もで きます. 
CIRCLE を 実行す ると， LP は 円の 中心 座標 （Wx， Wy) に 設定され ます • 

〈タイル ストリング〉 について は， 〔2〕 PAINT を 参照して ください. 
参照 ： COLOR, 〔 2 〕 PAINT 



プログラム"！ 



100 
110 
120 
130 
140 
150 



170 



190 
200 
210 
220 



• 一一 circle display -- 

SCREEN 0,0: CIS 3 

FOR R-l TO 100 STEP 5 

CIRC し EU50,100),R,(R MOD 7)M 
NEXT R 

ST«. 00001 

DATA 25,5,40,13,17 
FOR 1*1 TO 5 

READ DAT ： EN=ST+DAT/ 1 00*3 . 1 4*2 
CI RC し E( 450 , 1 00 ) , 1 00 , I , - ST , - EN 
ST -EN 

NEXT I 





CLEAR 〔く ダミー パラメータ〉〕 〔， く メモリの 上限〉〕 〔， く スタックの 大きさ〉〕 〔， 

く 配列 データ 領域の 大きさ〉〕 
CLEAR ，& H3E00 

すべての 数値 変数 を 0 に， また 文字 変数 を、、 な （ヌル ストリング） に 初期化し ま 
す. 

〈メモリの 上限〉 は， 16 の 倍数の セグメント アドレス (1) で 指定し， 指定され た 場 
合に は， 指定され た 番地の 直前 ま で を BASIC の 使用す る メモリ の 上限 値 としま 
すので， その 番地 以降に 置かれた データ や， 機械語 プログラム は， BASIC によつ 
てクリ ァ あるいは 破壊され る こと はあり ません. 
洤 (1) ： セグメント アドレス は， 実際の ァ ドレス を 16 で 割った 値 • 
〈スタックの 大きさ〉 は， BASIC が FOR, GOSUB, PAINT 等に 使用す るスタ 

ック 領域の 大きさ を バイ ト 数で 指定し ます. リセット 時の 初期化 された 状態で は 

512 バイ トに 設定され ています. 
CLEAR は， DEF 文 （DEF FN, DEF SEG， DEF USR, DEFINT 等） によ 

つて 定義 あるいは 指定され た 情報 もす ベて 無効に します • 
〈配列 データ 領域の 大きさ〉 は， 数値 配列の 値が 格納され る 配列 データ 領域の サ 

ィズを 指定し ます. 実際に 確保され る 配列 データ 領域の サイズ は 指定され た 値 を 
16 倍した サイズです • 一般に この パラメータ は， 配列 データ 領域 を 縮 少し， その 
分 シンボル テーブル ノス ト リ ング 格納 エリ ァの サイ ズ （最大 62K バイ ト） を 拡大 

する ために 使用し ます. 

この 値が メモリの 上限よ り 大きかったり， 実際に 取れない ような 値の 場合 は， 

、、Illegal function caW エラ一 になります. 

第 1 番目の パラメ一 タは ダミー パラメータです • 値 を 指定しても 何の 効果 も あ 

り ません ので 省略して ください. 

参照 ： BLOAD, BSAVE, FRE 



参考 ： N 88 - 日本語 BASIC(86) の メモリ レイアウト 



以降す ベて E 列 データ 領域 



BASIC で 使用す る メモリ の 上限 



ス ト リ ング 作業 域 2KB 



ス ト リング 格納 エリア 

i 



T 

シンボル • テーブル 



コード 



スタック エリア 標準 0.5KB 



ッ ク 



KB 



ト エリア 



入出力 バッファ 



キ 



最大 53KB 




リ ァ 



8.75KB 



II II 



16 



230016 



II II 



16 



N ^日本語 BASIC(86) の メモリ レイ ァゥ ト 




詳細に ついては， お 手持ちの ユーザーズ マニュアル を 参照 



してく ださ レ 乙 
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CLOSE 



ファイル を 閉じます. 

CLOSE 〔は〕 く ファイル 番号〉 〔， 〔#〕 く ファイル 番号〉〕 •••〕 



「文 朝 I CLOSE 



CLOSE #1, #3 



[M 説 



〈ファイル 番号〉 に 対応す る ファイル を 閉じます. 以後， 指定され た 〈ファイル 
番号〉 は， 異なる ファイル を 開く ために 利用で きる ようになります. また 閉じられ 

た ファイル は， 同じ あるいは 異なった ファイル 番号に よって 再び 開く こ とがで き 
ます. 

〈フ アイ ル 番号〉 を 複数 指定す る ことにより， 一度 に 複数の ファイル を 閉じる こ 

とがで きます. また 〈ファイル 番号〉 が 省略され た 場合に は， その 時， 開いて いる 
ファイル すべて を 閉じます • 

フ アイ ル に対して は， 再び 開かれる まで 入出力 を 行う こ と はでき ません. 
ファイルが 出力 用に 開かれて いた 場合に は， バッ ファに 残って いた データの 掃 
き 出し を 行います ので， ファイルの 出力 処理 を 正しく 終了す るた めに は， CLOSE 



文の 実行が 必要です. 



RUN あるい 




、れ 



ている すべての ファイル を 自動的に 閉じます. また， END あるいは NEW の 実 
行に よっても ファイル は 自動的に 閉じます. STOP 文 は ファイル を 閉じる 作業 は 
行いません ので 注意して く ださい. また， END 文が 実行され ず プログラムが 終了 
する 場合， すなわち プログラムの 終端に END 文が 存在せ ず， 実行 制御が プ ログ 



ラム 終端に 至った 場合 も ファイル は 閉じられません ので 注意して ください. 



参照 ： OPEN, END, STOP, NEW, LOAD, CHAIN 
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現在 アクティブな 画面 をク リアし ます • 

CLS 〔く 機能〉〕 
CLS2 

〈機能〉 は， 1, 2, 3 の 値 をと り， それぞれ 次のように 働きます. 省略され た 
場合に は 1 が 選択され ます. 

1 ： テキス ト 画面の みをク リアし ます • テキス ト 表示 モードが CONSOLE 文， 
COLOR 文に よ り， 白黒， リバ一 スモ一 ド になって いる 場合に は 画面 は 白 く 
なります. 

2 ： グラフ ィ ック 画面の ビュー ポ一 ト 内の みをク リアし ます • グラフィック 表 
示 が SCREEN 文に より カラ一 モードに 設定され ている 場合に は， COLOR 
文に より 指定され た バック グラウン ド カラ一 で， ビュー ポート 内 をクリ ァ 
します. 

3: テキスト 画面， グラフィック 画面の 両方 をク リアし ます. 

テキス 卜 画面が ク リアされ る 時 は， CONSOLE 文に よって 指定され たス クロ一 
ル ウイ ン ドウ 内の みをク リアし ます. また グラフ ィ ック 画面 をク リアした 場合に 
は- LP (Last referenced point) はビュ 一ポートの 左上の 頂点に 移動し ます • 



参照 ： SCREEN, COLOR, CONSOLE, VIEW 



100 SCREEN 0,0 

110 GOSUB »D〖SP し AY 

120 BEEP: CIS 1 

130 GOSUB »D ISP し AY 

140 BEEP ： CLS 2 

150 GOSUB «D I SPLAY 

1 60 BEEP : CIS 3 

170 GOSUB »DISPLAY:VIEW(200,50)-(400,150),,7 

180 BEEP ： CLS 3 
190 SCREEN 0:END 

200 display routine -- 
210 «D1SP し AY=FOR 1=1 TO 20 
220 し OCATE RND*78 f RND*23 
230 PRINT M » M 

240 L I NE ( RND»639 • RND* 1 99 ) -STEP (40,20), INT(RND*7*1 ) ,B 
250 NEXT I ： RETURN 
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COLOR 




ック 画面の パレット モード を 指定し 

ます. 

COLOR 〔く ファンクション コード〉〕 〔， く バックグラウンド カラー〉〕 〔， 〈ボーダー 

カラー〉〕 〔， く フォアグラウンド カラー〉〕 〔， く パレット モード〉〕 



ほ W\ COLOR 7， 0， 0, 7 



匸 




口 



テキス ト 画面の 文字の カラ一 を 変えたり， グラフ ィ ック 画面の フォア グラウン 
ド， ノ マック グラウンド， ボ一ダ 一の カラ一 を 設定したり， グラフィック 画面の パ 

レツ トモ 一 ドを 指定す る 機能が あります. 

〈ファンク ショ ン コード〉 は， テキス ト 画面の 文字に いろいろな 機能 を 与えます. 
この ファンクション コー ドは， 現在 テキス ト 画面が カラ一 モ一 ド になって いる 力、， 
白黒 モードに なって いるかに よって 働きが 異なります. 



白黒 モードの 場合 （CONSOLE ， ，， 0) 



0 

1 

2 

3 
4 
5 
6 
7 



ノーマル （通常の 表示） 

シークレット （文字 は 表示され ない） 

プリ ンク （点滅す る） 
シーク レツ ト （1 と 同じ） 

リバース （反転す る） 

リバース シークレット （反転して 文字 は 表示され ない) 
リバース ブ リンク （反転して 点滅す る） 
リバース シーク レツ ト （5 と 同じ） 



カラ一 モードの 場合 （CONSOLE", 1) 



0 



黒 



1 



青 



2 



赤 



3 



-紫 



4 



5 —— 水色 



6 



黄色 



7 



白 



ただし， テキスト 画面の 文字の 色 は， あくまで この カラ 一コードに よって 表さ 
れ ます. 〔2〕 COLOR で 説明され る、、 パレット 番号 かではありません， したがつ 
て パレット を 変化 させても 文字 色が 変化す る ことはありません， 

〈バックグラウンド カラ一〉 と 〈フォアグラウンド カラ一〉 は グラフ ィ ック 画面 

の カラ一 を 設定す る もので， 、、パレット 番号〃 によって 指定し ます. 

く フォアグラウンド カラ一〉 と は， グラフ ィ ック 画面に 点 や 線 を 表示した りする 
時に 使われる 色の ことです. 種々 の グラフィック 命令 （PSET， LINE, CIRCLE 
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など） で 特別に 色 指定 をし なかった 場合， この フォアグラウンド カラ一 が 採用 さ 

れ ます. 

〈バックグラウンド カラ一〉 と は， グラフィック 画面の 地の 色の ことで， この 命 

令 実行 後 CLS 命令に よって 画面 をク リアす る と， この 色に よって 画面が 塗り 変 
えられます. また 以後 PRESET 命令 を 色 指定な しで 実行す ると， この 色が 採用 さ 

れる ことにな り ます. 
〈ボーダー カラ一〉 と は， ディスプレイの BASIC によって 使う ことので きる 領 

域外の 色の ことです. ボ一ダ 一カラ一 は， パレット 番号で はなく カラ 一コードで 

指定し ます. したがって テキスト 画面の カラ一 と 同じく， パレット を 変化 させて 

も 色が 変化す る ことはありません. ただし， 専用 高 解像度 ディスプレイ 使用 時 は， 
この パラメータ を 指定して 色 を 付ける こと はでき ません. 



テキス トカラ 一 




ポー ダー カラー 



ック グラウンド 

カラ 



〈パレ ッ トモ一 ド〉 は グラフ ィ ック 画面に 対する 色 指定の モード を 指定し ます • 
〈パ レツ トモ一 ド〉 に 指定で き る 値と その 意味 は 次の 通 り です. 

0 ： 8 個の パレットに システムが 決めた 8 色 を 対応 づける モードです （こ 

の モード を 8 色 中 • 8 色 モードと 呼びます）. 
1 ： 8 個の パレットに 4096 色 中の 任意の 8 色 を 対応 づける モードです （こ 

の モード を 4096 色 中 • 8 色 モードと 呼びます）. 
2 ： 16 個の パレットに 4096 色 中の 任意の 16 色 を 対応 づける モードです （こ 

の モード を 4096 色 中 • 16 色 モー ドと 呼びます）. 



N 88 -BASIC (86) が 立 上がった 直後の パレット モード は 8 色 中 • 8 色 モードで 
す. 以降， 〈パレット モード〉 が 指定され た 場合に 限り パレット モードが 切り 変わ 

り ます. 

各 モードに おける パ レツ ト と カラ 一コードの 対応 づけの 方法に 関して は 〔2〕 

COLOR を 参照して ください. 
〈パレット モード〉 が ある 場合， パレット モードが 切り 変わり， ノヽ 。レットと カラ 

—コードの 関係 は 次のように 初期化 されます. 
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8 色 中 • 8 色 モード 



くパ レツ ト 番号〉 く カラ一 コード〉 

0 < 0 (黒） 

1 < 1 (明るい 青） 

2 < 2 ( ノゾ 赤） 

3 < 3 ( メノ 紫） 

4 < 4 ( ノ/ 緑） 

5 < 5 ( ノノ 水色） 

6 < 6 ( ノク 黄色） 

7 < 7 (白） 

4096 色 中 • 8 色 モー ド 
くパ レツ 卜 番号〉 く カラー コー ド〉 

0 < &H000 (黒） 

1 < &H00F (明るい 青） 

2 < &H0F0 ( ガ 赤） 

3 < &H0FF ( ,， 紫） 

4 < &HF00 ( // 緑） 

5 < &HF0F ( /ノ 水色) 

6 < &HFF0 ( // 黄色) 

7 < &HFFF (白） 

4096 色 中 • 16 色 モー ド 
<パ レツ ト 番号〉 く カラー コード〉 

0 < &H000 (黒） 

1 < &H00F (明るい 青） 

2 < &H0F0 ( n 赤） 

3 < &H0FF ( ，) 紫） 

4 < &HF00 ( " 緑） 

5 < &HF0F ( ガ 水色) 

6 < &HFF0 ( ガ 黄色) 

7 < &HFFF (白） 

8 < &H777 (灰色） 

9 < &H00A (少し 暗い 青) 

10 < &H0A0 ( ノノ 赤) 

11 < &H0AA ( n 紫) 



12 < &HAOO ( " 緑） 

13 < &HAOA ( ,， 水色） 

14 < &HAAO ( " 黄色） 

15 < &HAAA ( ノ / 白） 

注意 ： くパ レツ トモ一 ド〉 は DISK モードで のみ 有効な パラメータです （ROM モ 

ード でく パ レツ トモ一 ド〉 の 指定 を 行う と エラーに なり ます）. 
ま た， 4096 色 中 • 8 色 モードお よ び 4096 色 中 • 16 色モ 一ドは アナログ RGB 
対応 ディ ス プレイが 接続され ている 場合の み 有効です （エラーに はなり ま 
せんが アナログ RGB 対応 ディスプレイが 接続され ていない 場合， 指定 通 
りの 色 は 出ません）. 

参照： 〔2〕 COLOR, COLOR @ , CONSOLE 



プログラム | 



100 CONSOLE ,,,1 

1 1 0 SCREEN 0 ， 0 

120 CO し OR 7,4， ，7:C し S 3 

130 GOSUB 化 1NEB 

140 FOR 1=1 TO 7 

150 CO し OR I,,, 1: GOSUB * し I NEB 

160 NEXT I: END 

170 * し INEB:PRINT "COLOR" 

180 L I NE( 100,50 )-STEP( 200, 100) • 

190 RETURN 



,BF 
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〔 2 〕 COLOR 



im 能 i カラー パレット を 変更し ます. 



L 霄 式 1 COLOR 〔= (く パレット 番号〉， 〈カラー コード〉）〕 



[文 COLOR =(2， 4) 



， B ^^^^^^^L • k 1 ^^^^ 



グラフ ィ ック 画面への 色の 指定 はすべ て カラ一 パ レツ ト によって 行います. こ 

の 命令 は， どの パレ ッ 卜に どの 色 を 対応させる か を 決める ものです. 

くパ レツ ト 番号〉 と は 0 から 7 (あるいは 0〜15) の 8 個 （あるいは 16 個） の カラ一 
パ レツ ト につけられた 固有の 番号で， それぞれの パ レツ ト にどの 色 を 対応 づける 

か をく カラ 一コード〉 によって 指定し ます. 

ノヽ 。レツ トの 個数お よび カラ 一コードの 値はパ レツ ト モードに よって 異なり ます 
(パ レツ トモ一 ド に関して は 〔1〕 COLOR を 参照して くださ レリ • 

各パ レツ トモ一 ド における 〈パ レツ ト 番号〉 と 〈カラ一 コード〉 の 関係 は 次の 通り 



です. 



8 色 中 • 8 色 モード 

〈パ レツ 卜 番号〉 

0 



1 

2 
3 
4 
5 
6 
7 



、 



どの パレ ッ ト に ） 
どの カラ 一コード 
を 対応させる か 任 
意に 決める ことが 



できます. 



く カラー コード〉 



0 (黒) 

1 (青) 

2 (赤) 

3 (紫) 



4 



(緑 



ノ 



5 (水色) 

6 (黄色) 

7 (白) 



4 



の 8 種類 中の 任意の 8 個 



同じ カラ 一コード を複 
数の パレ ッ 卜に 対応 づ 

けても かまいません. 



4096 色 中 • 8 色 モー ド 
くパ レツ ト 番号〉 



く カラー コー ド〉 



0 
1 

2 

3 
4 

5 
6 
7 



&H000 



ヽ 



どの パレ ッ ト に 、 
どの カラ 一コード 
を 対応させる か 任 
意に 決める ことが 



、 



できます. 



&HFFF 



の 4096 色 中の 任意の 8 fl 



同じ カラ一 コ一 ドを複 
数の パレ ッ トに 対応 づ 
けても かまいません. j 
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4096 色 中 • 16 色 モー ド 
くパ レツ ト 番号〉 



0 
1 
2 
3 
4 



5 

6 

7 

8 

9 

10 

11 
12 

13 
14 
15 



どの パレ ッ ト に 
どの カラ一 コード 
を 対応させる か を 

任意に 決める こと 
、がで き ます. 



く カラー コード〉 



&H000 



&HFFF 



の 4096 色 中の 任意の 16 個 



'同じ カラ 一コード を複 
数の パレ ッ トに 対応 づ 
、 けても かまいません. 



ここで， 4096 色 中 • 8 色 モードお よび 4096 色 中 • 16 色 モードに おける カフ一 コ 
—ドの 値と 色の 関係に ついて 説明し ます. 



(1) 色の しくみ 

グラフィック 画面に 表示で きる 色 はすべ て 基本 色で ある 緑 (G), 赤 （R), 青 （B) 
の 組み合わせで 表現され ま す. 




G R B 




： 左から 緑 (G)， 赤 （R)， 青 



(B) に 対応して います. □ は ON 
状態 を， □ は OFF の 状態 を 示して 

います. 广- D 

G R B 

たとえば， 水色の 場合 CCD は， b 

と G が ON の 状態です. すなわち， 
水色 は 青と 緑 を 混ぜて 表現され る 色 
である こと を 示して います. 
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(2) 4096 種類の 色 

黒， 青， 赤, 紫, 緑, 黄色, 水色. 



それで は オレンジ 





を 説明し ま 




す. たとえば， オレンジ色 というの は， 黄色に 赤 を 混ぜた 色です. 黄色 は 赤と 緑 
を 混ぜた 色です が， 赤と 緑 を 混ぜ あわせる 際に 緑よ り も 多く 赤 を 混ぜ合わせる と 
オレンジ色 になり ます （赤と 緑 を 同じ 程度に 混ぜる と 黄色に なり ます）. 

色 を 混ぜ合わせる 割り合い は， 「輝度」 によって 調整す る ことができます. 「 
度」 は その 名の 通り 明るさの 度合い を 示した ものです. G, R, B それぞれ 16 段階 
の 輝度 を 表現す る ことができます. G, R， B は それぞれ 4 ビットの 情報 を 持ち， 
この ビッ トの 状態で 輝度 を 表わして います （16 段階の 輝度 を 表わす のに は 16 進 表 
現が 便利です). 



G R B 




4 ビット 



4 ビット 



輝度 


ビット の 状 « 


0 


0 0 0 0 


1 


0 0 0 1 


2 


0 0 10 


3 


0 0 11 


4 


0 10 0 


5 


0 10 1 


6 


0 110 


― 7 — 


1 0 1 1 に 


8 


に 1 0 0 0 


9 _J 


に 1 0 0 1 


A 


10 10 


B 


10 11 


C 


110 0 


D 


110 1 


E 


1110 


F 





R 




« 度 

0 


1 ビッ トの状 81 
0 0 0 0 


1 


0 0 0 1 


2 


0 0 10 


3 


0 0 11 


4 


0 10 0 


5 


0 10 1 


6 


0 110 


7 ] 


〔0 — 1 _1 _ 1 _ 


8 」 


r 1 o o o 


9 ] 


匸 1 0 0 1 


A 1 


に 1 0 1 0 


B 


10 11 


C 


110 0 


D 


110 1 


E 


1110 


F 


1 1 1 1 



« 度 


ビ ッ ト の 状) » 


0 


0 0 0 0 




0 0 0 1 


2 


0—0 10 


3 


0 0 11 




4 


0 10 0 


5 


0 10 1 


6 


0 110 


7 


0 111 




8 


10 0 0 


9 


10 0 1 


A 1 


10 10 


B 


10 11 


C 


110 0 


D 


110 1 


1 


E 


1110 


F 


1 1 1 1 



♦ 明る t 



輝度が 0 というの は， その 色が 表示され ない こと を 意味し ます. オレンジ色 を 
表現す る 場合 は， 輝度が &HF の 赤 （最も 明るい 赤） と 輝度が &H9 の 緑 （暗い 緑） 
を 混ぜ合わせる ことによって 表現し ます （カラ一 コー ドには &H9F0 と 指定し 
ます). このように 輝度 を 変える ことで， 様々 な 色合いが 表現で きます. また， 基 
本の 7 色に ついても その 輝度 を 変えれば， 暗い 赤 や， 暗い 黄色な どの 表現が でき 
ます. 



(カラー コ一 ドは &HFFO となります) 



暗い 黄色 




(カラ —コード は &H770 となり ます) 




； 表現で きます. そして， これら 
の 色の 混ぜ合わせ を 自由に 行う と 16X16X16 = 4096 種類の 色が 表現で きます. 

パ レツ ト と カラー コードの 対応 を各パ レツ トモ一 ド における 初期 状態に リセ ッ 

卜する ことができます. 
次に 示す ように， f (等号） も 含めて 〈パレット 番号〉 および < カラ— コード〉 

を 省略し ます. 
COLOR 

(DISK モードでの み 有効な 機能です. ) 

各パ レツ トモ一 ド における パ レツ トの 初期 状態に 関して は， 〔l〕COLOR のパ 
レツ トモ一 ドの 説明 を 参照して く ださい. 



参照： 〔 1 〕 COLOR 



8 色 中 • 8 色 モー ドの例 

100 palette alternation -- 

110 COLOR ,,,,0 

120 FOR 1=1 TO 7 

130 CO し OR- (I, 7) 

140 NEXT I 

150 • 

160 FOR 1=1 TO 7 

170 し 1NE(0, I«20) - STEP(639, 10) , I ,BF 
180 NEXT I 
190 * 

200 FOR 1=1 TO 7 
210 FOR J=l TO 7 
220 CO し OR- (J, I ) 
230 GOSUB *WAITSUB 
240 NEXT J 
250 NEXT I 
260 ' 

270 '-- palette initialize -- 
280 CO し OR 
290 END 

300 '-- wait routine -- 

310 *WAITSUB 

320 FOR K=0 TO 100 

330 NEXT K 

340 RETURN 
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4096 色 中 • 16 色 モー ドの例 



100 • -- palette alternation -- 

1 1 0 SCREEN 3,0： CO し OR , … 2 
120 FOR 1=1 TO 15 

130 CO し OR- ( I , &HFFF ) 
140 NEXT I 
150 * 

160 FOR 1=1 TO 15 

170 LINE(0,I*20)-STEP(639,10),I,BF 
180 NEXT I 

190 • 

200 FOR 1=1 TO 15 
210 FOR J=l TO 15 
220 CO し OR=( J, 16»I "2) 
230 GOSUB »WAITSUB 
240 NEXT J 
250 NEXT I 
260 f 

270 • -- palette Initialize -- 
280 CO し OR 
290 END 

300 wait routine -- 
310 ^WAITSUB 

320 FOR K=0 TO 100 
330 NEXT K 
340 RETURN 
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COLOR® 



I 機能 I テキス ト 画面に 害 かれた 文字な どに 色 や 機能 を 設定し ます. 

I 書式 I COLOR® (X lf YJ- (X 2 ， Y 2 ) 〔， く ファンクション コード〉〕 
I 文例 I COROR@(0， 0) - （79, 4)， 2 

I 解 脱 I テキスト 画面の キャラクタ 座標の 2 点 （X!， YJ, (X 2 , Y 2 ) を 対角と する 四角 

形の 領域に 書かれて いる， 文字 や グラフィック キャラクタに 色 を 付けたり， プリ 

ンクな どの 機能 を 設定した りします. 

指定す る 座標 （X い YJ, (X 2 ， Y 2 ) は 必ず キャラクタ 座標でなくて はなり ませ 
ん. またく ファンクション コード〉 は， CONSOLE 文に よって 設定され ている モ 
ード によつ て 持つ 意味が 異な ります. こ の 機能 及び 指定の 仕方 は 〔 1 〕 COLOR 文 

の 〈ファンクション コード〉 の 場合と 全く 同様です から， そちら を 参照して くだ 

さい. 

もしく ファンクション コード〉 が 省略され た 場合 は， 7 を 値と して 採用し ます • 

注意： この 機能 はあくまで テキス ト 画面に 書かれて いる 文字な どに 対して 有効で 

す. したがって 何も 書かれて いない 場合 は， 何の 作用 もありません. また 

この 命令に よって 設定され た 領域の 上に 新しく 文字な ど を 書いた 場合， 書 
かれた 文字 はこの 命令の 影響 を 受けません. なお， 白黒 モードで 指定され 

た 領域に 表示され ている グラフ ィ ック 画面の 表示が ある 場合， 指定され た 
色に 変わり ます. 

参照 ： CONSOLE, 〔 1 〕 COLOR 



サン 7 ル 
プログラム 一 



M 



100 C0NS0 し E 0,25,0,1 

110 WIDTH 80,25ズ し S 

120 FOR 1=0 TO 31 
130 PRINT "COMPUTER 

140 NEXT I 

150 FOR 1=0 TO 7 

160 COLOR© ( IM0,0) - U«10 + 9,4) , I 

170 NEXT I 
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COMMON (DISK モード) 



機 



CHAIN 文が 実行され た 時， 




ぼ 例 



COMMON く 変数 名〉 〔， く 変数 名〉 •••〕 
COMMON A, B， XY( ), NA$ 




CHAIN 文が 実行され， メモリ 上の プログラムと ディスクから 口一 ド された プ 



ログ ラムが 連結され た 時， メモ 




したが 




COMMON 文 は CHAIN 文の 前に ある 必要が あ ります. 

く 変数 名〉 は 1 行の 許す 範囲で 何個で も 並べる ことができ ますが， 1 つの プロ グ 
ラム 中の COMMON 文に 同じ 変数 名が あって はいけ ません. また 配列 変数 名 は 



)〃 を 付け加えて 表現し ます. 
すべての 変数 を 引き渡し たいので あれば， CHAIN 文の ALL オプション を 使 

う 方が 便利です. 



参照 ： CHAIN 



ン プル 
コダ， 厶 



呼ぶ 側 （メモリ 上） の プログラム 



DIM I DENT (200) 
COMMON I DENT (), COUNT 
OPEN "DATA- AS «1 

FIELD 眷1,4 AS I$,20 AS N$ t 50 AS A$ 

INPUT "会 貝 * 号"； I 

IF 〖-0 THEN GOTO ^PRINTOUT 

IF I=>1000 THEN STOP 



120 
130 



150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



"氏名 " ； NAME 1 $ 
"住 



270 



所 •• ； ADR$ 
し SET I$-MKS$(I ) 
し SET N$=NAME1$ 
し SET A$-ADR$ 
PUT 肴し I 
C0UNT=C0UNT+1 
I DENT ( COUNT ) 
GOTO 140 
^PRINTOUT 
CHAIN "CHAIN2 
END 
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呼ばれる 側 （ディスク 内） の プログラム 

100 COMMON I DENT (), COUNT 

110 FIELD »1,4 AS I$,20 AS N$,50 AS A$ 

120 IF COUNT-0 THEN STOP 

130 GET #! • I DENT (COUNT) 

140 PRINT "会 貝 番号 ： H ;CVS(I$) 

150 PRINT "氏名 ： M ;N$ 

160 PRINT "住所 ： M ;A$ 

170 COUNT=COUNT-l 

180 GOTO 120 



COM 





通信 回線からの 割り込みの 許可， 禁止， 停止 を 制御し ます, 

1) COM 〔（く 回線 番号〉)〕 ON 

2) COM 〔（く 回線 番号〉)〕 OFF 

3) COM 〔（〈回線 番号〉)〕 STOP 
COM ON 

C0M(2) ON 



W 锐 I 



コミュニケーション ポート （RS-232C 回線） に 外部からの 通信が 入った ことに 
よる 割り込み を 許可 （ON) する か， 禁止 （OFF) する か， 停止 （STOP) する か 

を 宣言し ます. 
〈回線 番号〉 に 指定で きる 値と 意味 は 次のと おりです. 



1 ： RS-232C 第 1 回線 

2 ： RS-232C 第 2 回線 

3 ： RS-232C 第 3 回線 



専用の 拡張 ィ ンタ一 フェース ボード が 必要です 



省略され た 場合 



I 線が 指定され 



たものと みなします. 



書式 



で 指定した コ ミ ュニケ 一シ ヨン ポートに 受信が 入る ごとに 割り込み を 発 



GOSUB 文で 定義され ている タ 



す. 



害 式 2) 割り込み を 禁止し ます • この 命令 実行 後 は， 通信が あっても 処理 ル一チ 



ン への 分岐 は 起こりません • 
書式 3) 割り込み を 停止し ます. この 命令 実行 後 は， 通信が あっても そのこと を 

覚えて いる だけで 処理 ル一 チンへの 分岐 は 起こりません • しかし， その 
後 COM ON によって 割り込みが 許可され る と， 先程の 通信に よって 処 
理ル一 チンに 分岐し ます. 



注意： 




、てくだ さい. 

COM ON 文 は， RS-232C コミュニケーション ポート を OPEN した 後 実 
行され ねば 有効と なりません. 
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なお， 割 り 込み 処理 ル一チ ン に 制御が 移る と 自動的に 割 り 込み 停止 状態 となり 

ますので， 割り込み 処理 ルーチンの 先頭で は COM OFF あるいは COM STOP 命 
令 を 実行し ないで ください. 

参照 ： ON COM GOSUB 
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CONSOLE 




【mi 



テキス 卜 画面 モー ドの 設定 を 行います. 

CONSOLE 〔く スクロール 開始 行〉〕 〔， く スクロール 行数〉〕 〔, 

一 表示 スィッチ〉〕 〔， く カラー Z 白黒 スィッチ〉〕 
CONSOLE 0， 25， 0, 1 




シ ヨン キ 



〈スクロール 開始 行〉 とく スクロール 行数〉 を 指定す る ことによって， 画面 上で ス 

クロール する 領域 （スクロール ウイ ン ドウ） を 指定し ます. 

画面の ク リア （CLS あるいは PRINT CHR$(12)) はこの スクロール ウイ ン ドウ 

に対して 実行され ます. 

〈ファンクションキー 表示 スィ ツチ〉 に 1 を 指定す る と， 画面 最下 行に プロ グラ 
マ ブルファン クシ ヨン キー に 登録され ている 文字列 を 表示し ます. 0 を 指定した 

場合， 表示し ません. 起動 直後 は 表示され る モードに なって います. 

く カラ一 ノ 白黒 スィ ツチ〉 を 1 に 指定す る と， テキス 卜 画面 を カラ 一モー ド にし， 

0 を 指定した 場合に は 白黒 モードに します. 起動 直後 は 白黒 モードに なって いま 

す. 
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CONT 



機 能 I ストップ キー入力， または STOP 文に よって 停止した プログラムの 実行 を 再開し 



ます. 
CONT 



「文 例 I CONT 



CONT は 通常 デバ ッ 




STOP 文ゃス 



ト ップキ 一（CTRL-C) の 入力に より プログラムの 実行 を 停止し， ダイ レク トモ一 
ドで 変数の 値 等 を 調べたり 変更した 後に， CONT 文に よって 実行 を 再開し ます • 

ただし， 実行 停止 中に プログラム 内容の 変更 を 行った 場合に は， CONT 文に よ 
る 継続 実行 はでき ません. 

また， 実行 停止の タイ ミ ング によって は プログラムの 実行 継続が できない 
があります. 
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COPY 



画面 情報の ハー ド コ ピー を 行います. 

COPY 〔く 機能〉〕 
COPY 3 

2 種類の 画面 ハ一 ド コ ピー 機能が 用意され ています. 

(1) ROM BASIC モード の 場合 あ るい は DISK BASIC モードで メモリ スィッチ 
SW6 • 2 4 ビ ッ ト が OFF の 場合. 

〈機能〉 に 指定で きる 値 は 1〜5 で， それぞれ 次のように 働きます • 
1 ： テキス 卜 画面の み を 出力し ます. 

2 ： グラフ ィ ック 画面の み を 出力し ます. 

3 ： テキスト 画面と グラフ ィ ック 画面 を 重ね合わせて 出力し ます. この 時， 

テキス 卜 画面の 情報 は プリ ンタの 印字 体で 出力され ます. 〈機能〉 が 省 

略された 場合， 3 を 値と して 採用し ます. 

4 ： グラフィック 画面の み を 出力し ます. 640X200 モードの 場合に 有効な 

コピーです • 

5 ： テキスト 画面と グラフ ィ ック 画面 を 重ね合わせ， さらに 縦 方向に 縮小 

して 出力し ます. 

注意 ： PC-PR201 系 プリ ンタを 使用す る 場合， メモリ スィ ツチ SW5*2° ビット を 
ON にして ください. 

(2) DISK BASIC モードで， メモリ スィッチ SW6 • 2 4 ビ ッ ト が ON の 場合. 
〈機能〉 に 指定で きる 値 は 1〜5 で， それぞれ 次のように 働きます • 

1 ： テキス ト 画面の み を 出力し ます. 

2 ： グラフィック 画面の み を 出力し ます （カラ一 出力の 場合， 白黒 を 反転 

出力し ます). 

3 ： テキスト 画面と グラブ ィ ック 画面 を 合成して 出力し ます （カラ一 出力 

の 場合， 白黒 を 反転 出力し ます). 〈機能〉 が 省略され た 場合， 3 を 値 
として 採用し ます. 

以降の 機能 は カラ一 出力の 場合の み 有効な 機能です. 

4 ： グラフ ィ ック 画面の み を 出力し ます （白黒 を 反転し ないで 出力し ま 

す). 

5 ： テキス ト 画面と グラフ ィ ック 画面 を 合成して 出力し ます （白黒 を 反転 



しないで 出力し ます）. 

注意： PC-PR201 系 プリ ンタを 使用す る 場合， メモリ スィ ツチ SW5*2。 ビット を 
ON にして く ださい. 

また カラ一 出力 を 行う 場合， 次の 準備が 必要です. 

• PC-PR201CL カラ一 プリンタ の 接続 

• メモリ スィ ツチ SW6*2 3 ビッ トを ON にす る 

詳し く はお 手持ちの ユーザ一 ズ マニュアル を 参照して く ださい. 
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DATA 








文 


例 





READ 文で 読み込まれる 数値， 文字 定数 を 定義し ます. 
DATA く 定数〉 〔， く 定数〉 •••〕 
DATA 1， CBA, 1465 

DATA 文 は 非 実行 文で， プログラム 中の どこに 置いても かまいません. 1 つの 
DATA 文に は， 1 行 (255 文字） に 入る だけの データ をセッ 卜する ことができます. 
また， 1 つの プログラム 内に は 任意の 数の データ 文 を 置く こ とがで きます. 

READ 文 は 行 番号の 小さい 方から 順番に， DATA 文中の データ を 読み込んで 
いきます. 

定数〉 は， 任意の 型の 定数， 即ち， 整数， 単精度 実数， 倍精度 実数， 文字 定数 
のい ずれで も かまいません. 但し， 定数 式 （2* 3 など） は 許されません. また READ 
文で 読み込む 場合， READ 文で 指定され ている 変数の 型 は 対応す る DATA 文の 
定数の 型と 一致し なければ なりません. 
DATA 文中の データ は コンマ （，） によって 区切られ ますが， 文字 定数で， その 文 

字 列の 先頭， または 最後が コンマ や ピリオド （.）， 意味の ある 空白で ある 場合なら 

ォ一テ ーショ ン 




ひ） でく く る 必要が あります. 



参照 ： READ, RESTORE 



。ング V 上 I 100 DATA 10,10, NEC COMPUTER," 曰 本 電気" 

110 READ A 

120 READ B$:B-VA し （"&H"+B$) 
130 READ C$:READ D$ 
140 PRINT A: PRINT B 
150 PRINT C$: PRINT D$ 



run 
10 
16 

NEC COMPUTER 
曰 本霄気 

Ok 
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DEF FN 




「畲 


式 1 


文 


例 



ユーザー 定義 関数 を 定義し ます, 



DEF FN く 名前〉 〔（く パラメ 一 



DEF FNA(X， Y)=X * 2 + Y * 3 




= く 関数の 定義 式〉 




関数の 名前 は 、、FN" と これに 続く 〈名前〉 を 含めた もので あり， 〈名前〉 は 変数 名 
と して 正しい 形 をした もので なければ なり ません. 

く パラメ一 タリ スト〉 は その 関数が 呼ばれた 時に， 〈関数の 定義 式〉 中の 同じ 名 

前の 変数に 対応し， この 変数 名 は 〈関数の 定義 式〉 を 評価す る 際にの み 有効と な 

り， プログラム 中に 同一 名の 変数が あっても 影響はありません • また， 〈関数の 定 

義式〉 中で 使われて いる 変数が， 〈パラメ一 タリ スト〉 中に ない 場合 は， その 変数 
がその 時点で 持って いる 値が 使われます. 

関数の 定義 式〉 は， その 関数の 演算 内容 を 記述す る 式で， 1 行の 範囲に 限られ 
ます. この ユーザ一 定義 関数 は， 数値 関数， 文字 関数， その 混在の いずれで も か 
まいません が， 〈パラメ一 タリ スト〉 内の 変数と， それに 渡される 変数と が 同一の 
型で なければ なりません. 

DEF FN 文 は 非 実行 文です が， これによ つて 定義され る 関数が プログラム 中で 
呼ばれる 前に 実行され ていなければ なりません. 



D 



100 
110 
120 
130 



170 



DEF FNFUKURI (G,R,N)-G»U+R)a 
DEF FNTANRI (G, R, N ) =G*( 1 *R*N ) 
INPUT "元金 ： ".GANKIN 
I NPUT " 年 利 ： •• , NENR I ： I NPUT •• 年 
FGOKEI -FNFUKURI ( GANK I N , NENR I , NEN ) 
TGOKE I = FNTANR I ( GANK I N , NENR I, NEN) 

PRINT 利で は"； USING F$; FGOKEI 
PRINT - 単 « では-: USING F$; TGOKE I 



： " , NEN 



.07 



で は ¥196,715 
では ¥170,000 



n 金 琴禾 

r 开年年 J5?«Br o 
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mm 



変数の 型 宣言 を 行います. 



DEF 



SNG 
DB し 
STR 



LX MA DEFINT A, I-K 



く 文字の 範囲〉 〔， 〈文字の 範囲〉 •••〕 



爾 脱 I 



〈文字の 範囲〉 で 指定され た 文字で 始まる 変数 名の 変数 を， DEFINT では 整数 型 

に， DEFSNG では 単精度 実数 型に， DEFDBL では 倍精度 実数 型に， DEFSTR で 

は 文字 型に それぞれ 定義 します. 

〈文字の 範囲〉 で 指定され る 文字 は 英字 1 文字で， 複数個 指定す る 場合 は マイ ナ 
ス 記号で つないで その 範囲 を 示します. 

ただし， これらに よって 行われた 型 宣言より， 型 宣言 文字に よる 指定 （％, ！, 
#， $) の 方が 優先され ます. また， 型 宣言が 行われて いない 文字で 始まる 変数 は， 
すべて 単精度 変数と みなされます. 



100 DEFINT I-M 
110 DEFSNG A,B 
120 DEFDBL D 
130 11=1 .23： J=65.643 
140 ABC=1 .23:BBB=65.643 
150 D=3. 141592654000003* 
160 D%=3. 141592654000003# 
170 PRINT M Il = H ;Il, f ,, J= M ;J 
180 PRINT " ABC= M ； ABC • , " BBB= " ； BBB 
190 PRINT "D=":D,"DW ; 
200 END 



un 

1= 1 J= 66 

BC= 1 .23 BBB- 65.643 

= 3. 141592654000003 D%= 3 




56 



DEF SEG 




セグメ ン ト ベース ァ ド レス を 宣言し ます, 

DEF SEG= く セグメント アドレス〉 
DEF SEG = &H3E00 




PEEK 関数で メ モ リ の 一部 を 読み出した り ， POKE 命令で メ モ リ の 一部に デー 
タを 書き出した りする 場合， その メモリ 空間 を 含む セグメ ント のべ一 ス アドレス 
を あらかじめ 宣言して おかなければ なり ません. 

同様に， 機械語 プログラム を メモリ に ロードす る 場合 も あらかじめ 機械語 プロ 
グラム セ グメン 卜の ベース アドレス を 宣言して おかなければ なり ません. 

このような 場合， DEF SEG 文 を 使用し ます. 

PEEK, POKE 等で 指定す る アドレスと は， DEF SEG 文で 指定した セ グメ： 
ト ベース アドレスからの 相対 ァ ドレスです. 

DEF SEG 文に 指定す る アドレス は 実際の ァ ドレス を 16 で 割った 値です. 

なお， 各 変数 や 各 配列の セグメ ン 卜べ一 スは， VARPTR 関数に より 得る ことが 
できます. また 配列に ついては 配列 ごとに 別 セグメント となって いますので， 複 
数の 配列の 要素 あるいは 配列 要素と 変数に アクセス する 場合に は， そのつど セグ 
メ ント ベース を 切り換えて アクセス する ことが 必要と なります • 

注意 ： DEF SEG 文 は， DEF と SEG の 間に 必ず スペース を 入れなければ なり ま 
せん. スペース を 省略して DEFSEG とすると 変数と して 扱われます. 



D 



参照 ： BLOAD, BSAVE, CLEAR, DEF USR, POKE, PEEK, VARPTR 
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DEF USR 



ほ 例 



機械語で 作られた ユーザー 関数の 実行 開始 番地 を 定義し ます, 

DEF USR 〔〈番号〉〕 = く 開始 番地〉 
DEF USR3=&HF000 




USR 関数 (ユーザ一 関数) が 呼び出す 機械語 ル一 チンの 実行 開始 番地の 設定 を 
行います. 〈番号〉 は， 0〜9 までの 値で， 複数の ユーザ一 関数 を 用いる 場合の 識 
別 を 行います. したがって 最大 10 個までの ユーザー 関数 を 準備， 利用す る ことが 
できます. 〈番号〉 が 省略され た 場合に は 0 と 解釈され ます. 

〈開始 番地〉 は 〈番号〉 によって 指定され る ユーザ一 関数の 実行 開始 番地 を 直前 
に 実行され た DEF SEG 文で 指定され た セグメ ント ベースからの 相対 ァ ドレスで 
指定し ます. 



参照 ： DEF SEG, CLEAR, USR, BLOAD, BSAVE 



サン ブル 
プログラム _ 



100 CLEAR ,&H3E00:DEF SEG-&H3E00 ： B し OAD" SAMPLE 

110 DEF USR- &H 100 

120 DEF USR1-&H200 

130 PRINT USR(IOO) 

140 A=USR1(1.23) 



•I 



DELETE 



I 機能 I プロ ダラ 厶の 部分 削除 を 行い ま す. 



DELETE 〔〈始 点 行 番号〉〕 〔一 〈終点 行 番号〉〕 



文 MJ DELETE 10-230 



[ 




□ 



〈始点 行 番号〉 か 






. 〈始点 行 番号〉 



号 以下く 終点 行 番号〉 を 指 



定 した 場合に は， プログラムの 先頭から 指定 行まで を 削除し ます. 
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DIM 



配列 変数の 要素の 大 き さ を 指定し， メモリ 領域に 割 り 当てます, 

L 畲 式 I DIM く 変数 名〉 (く 添字の 最大値〉 〔， 〈添字の 最大値〉 …： 1) 



文 例 



DIM A(12， 2) 




配列 変数の 添字の 最大値 を 設定し 



てます • 





なされます. もし， 




合， その 添字の 最大値 は 10 とみ 



、られ た 場合 は, 



、、 



Subscript out of range 77 エラ一 が 起こ ります. 
添字の 最小値 は， OPTION BASE 文に よって， 0 か 1 に 指定す る こ とがで き ま 
す. 

また， DIM 文が 実行され た 時点で， その 配列の すべての 要素の 値 は 0 ( 文字 型 

の 場合 は ヌル ストリング） に 設定され ます. 

なお， 数値 配列の 場合， 1 個の 配列に 対し 指定で きる 要素の 数 は 次のと おりで 

す. 

整数 型の 場合 ： 32767 個 
単精度 実数 型の 場合 ： 16383 個 
倍精度 実数 型の 場合 ： 8191 個 

参照 ： OPTION BASE, ERASE 



プ a グラム 



100 • 九九の表 を 作る 
110 OPTION BASE 1 
120 DIM KUKU(9，9) 
130 FOR 1=1 TO 9： FOR J=l TO 9 
140 KUKU(I,J)«I*J 
150 NEXT J, I 
160 FOR 1=1 TO 9： FOR J 
170 PRINT USING M 
180 NEXT J ： PRINT 
190 NEXT I 
200 END 



1 TO 9 
" ； KUKU ( J 



run 



1 


2 


3 


4 


5 


6 


7 


8 


9 


2 


4 


6 


8 


10 


12 


14 


16 


18 


3 


6 


9 


12 


15 


18 


21 


24 


27 


4 


8 


12 


16 


20 


24 


28 


32 


36 


5 


10 


15 


20 


25 


30 


35 


40 


45 


6 


12 


18 


24 


30 


36 


42 


48 


54 


7 


14 


21 


28 


35 


42 


49 


56 


63 


8 


16 


24 


32 


40 


48 


56 


64 


72 


9 


18 


27 


36 


45 


54 


63 


72 


81 



Ok 
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DRAW (DISK モード) 




グラフ ィ ック 描画 サブ コマ ン ド列に 従って， ワール ド座棟 上で 図形 を 描きます, 

；] DRAW く 文字列 式〉 



戈 ft] DRAW 、、U50R50D50L5(T 



文字列 式 内に 指定 可能な グラフィック 描画 サブ コマンド は， 一般的に は 次の よ 
う な 形式です. 



〔く 修飾子〉〕 く 識別子〉 〔〈パラメータ〉〕 〔， く パラメータ〉〕 



攀 警 



〈修飾子〉 として は， B または N を 指定す る ことができ， 次の ような 意味 を もち 
ます. 

B 〈識別子〉 で 示される サブ コマンドの 実行 は 行わず， LP のみ を サブ コマ ン 

ド 実行 後の 値と します. 
N く 識別子〉 で 示される サブ コマンド 実行 後， LP を （0, 0) とします. 

B および N を 同時に 指定した 場合に は， く 識別子〉 で 示される サブ コマンドの 実 



行 は 行われず， LP が （0, 0) となります. 



〈識別子〉 は， いろい 




ンドを 指定す 



る ものです. 

〈パラメ一 タ〉 は 
で 指定 します. 




， 以下の 形式 



く 数値 定数〉 〔；〕 または = 〈変数〉 ： 

数値 定数と して 指数 形式 を 用いる こと はでき ません. また， 16 進 表記で 数値 定 
数 を 表す 場合に は， その後に 必ず： （セミコロン） を 付けなければ なりません. 



〈識別子〉 として 指定 可能な サブ コマンド とその 〈パラメ一 タ〉 を 以下に 示し ま 



す. 



A く パラメータ 1〉 

グラフ ィ ック 描画 サブ コマンドの 現 座標系 を 規定し ます. 〈パラメ一 タ 1〉 
は， 0〜3 までの 整数 値で， それぞれ 以下の 座標系 を 意味し ます， 
A サブ コマンド によって 規定され た 座標系 は DRAW 文の グラフ ィ ック描 
画 サブ コマンドに 対しての み 有効な もので， ワールド 座標系が 変化す る わ 

けではありません. 初期 状態 は 0 となって います. 
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(o) 



(I) 



(2) 



(3) 



(0,0) 



♦ X 



X 



Y 



Y X — 



Y ♦ 



(0,0) 



Y 



(0.0) 



(0,0) 



X 



C く パラメータ 1〉 

グラフ ィ ック 描画 サブ コマンド によって 描画され る 図形の パ レツ ト 番号 を 

規定し ます. 〈パラメータ 1〉 は パレット 番号 を 指定し ます. C サブ コマ ン 
ド によって 規定され たパ レツ ト 番号 は， グラフ ィ ック 描画 サブ コマンドに 
対しての み 有効な もので あり， フォアグラウンド カラー を 変更す る もので 
はありません. 

初期 状態 は， フォアグラウンド カラ一 となって います. 
D く パラメータ 1> 

LP から， g 標 系の Y 軸に 沿って 〈パラメ一 タ l〉x スケール 値 分 正の 方 
向へ 移動した 点まで 直線 を 描画し ます. 

E く パラメータ 1> 

LP から， 標 系の X 軸に 沿って 〈パラメータ l〉x スケール 値 分 正の 方 
向に， さらに Y 軸に 沿って 〈パラメータ l〉x スケール 値 分 負の 方向に 移動 

した 点まで 直線 を 描画し ます. 
F く パラメータ 1〉 

LP から， g 標 系の X 軸に 沿って 〈パラメータ l〉x スケール 値 分 負の 方 
向に， さらに Y 軸に 沿って 〈パラメータ l〉x スケール 値 分 負の 方向に 移動 

した 点まで 直線 を 描画し ます. 
G く パラメータ 1> 

LP から， g 標 系の X 軸に 沿って く パラメータ l〉x スケール 値 分 負の 方 

向に， さらに Y 軸に 沿って 〈パラメータ l〉x スケール 値 分 正の 方向に 移動 

し た 点 ま で 直線 を 描画 します. 
H く パラメータ 1> 

LP から， g 標 系の X 軸に 沿って く パラメ一 タ l〉x スケール 値 分 正の 方 
向に， さらに Y 軸に 沿って 〈パラメータ l〉x スケール 値 分 正の 方向に 移動 

した 点まで 直線 を 描画し ます. 
L く パラメータ 1> 

LP から， g 標 系の X 軸に 沿って 〈パラメータ l〉x スケール 値 分 負の 方 
向に 移動した 点まで 直線 を 描画し ます. 



M く パラメータ 1〉， く パラメータ 2〉 

LP から， ワールド 座標系の X 座標 = 〈パラメータ 1〉， Y 座標 = 〈パラメ 
—タ 2〉 の 点まで 直線 を 描画し ます. 

P 〔く パラメータ 1>〕 

LP を 含み， 〈パラメータ 1〉 のパ レツ ト 番号で 描かれた 境界線で 囲まれた 
領域 をぬ りつぶ します. 

〈パラメータ 1〉 が 省略され た 場合に は， C サブ コマンドで 指定され ている 
パ レツ ト 番号 〈パラメータ 1〉 の 指定と みなします. P サブ コマンド を 実 
行 するとき は， LP は ウイ ン ドウ 内に なければ なり ません. 
P サブ コマンド によ りぬ りつぶ される 色な どの 指定 方法に ついては， Z サ 
ブ コマンド を 参照して く ださい. 

Q く パラメータ 1〉， 〈パラメータ 2> 

LP から， 現 座標系の X 軸に 沿ってく パラメ一 タ l〉x スケール 値 分， Y 軸 
に 沿って 〈パラメータ 2 〉x スケール 値 分 それぞれ 正の 方向へ 移動した 点 ま 

で を 対角線と する 長方形 を 描画し ます， 
R く パラメータ 1> 

LP から， 現 座標系の X 軸に 沿って 〈パラメ一 タ l〉x スケール 値 分 正の 方 

向に 移動した 点まで 直線 を 描画し ます. 
S く パラメータ 1> 

グラフ ィ ック 描画 サブ コマ ン ドで 指定され る 相対 位置の パラメータの スケ 
ール値 （倍率） を 規定し ます. 

〈パラメータ 1〉 は スケール 値 を 表わし， 0 よ り 大きな 値で なければ なり ま 

せん. 

初期 状態 は， スケール 値 = 1 となって います • 

T く パラメータ 1〉， く パラメータ 2> 

Q サブ コマンドと 同様に， 長方形 を 描画す ると 同時に， その内 部 をぬ りつ 

ぶします. 

ください. 
U く パラメータ 1〉 

LP から， g 標 系の Y 軸に 沿って， く パラメータ l〉x スケール 値 分 負の 方 

向に 移動した 点まで 直線 を 描画し ます. 
W く パラメータ 1〉， く パラメータ 2> 

LP から， , 標 系の X 軸に 沿ってく パラメ一 タ l〉x スケール 値 分， Y 軸 
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で 直線 を 描画し ます. 

X く パラメータ 1> 

〈パラメ一 タ 1〉 で 指定され る 文字 変数 内の グラフィック 描画 サブ コマンド 
歹 IJ に 従い 図形 を 描画し ます. 

文字列 変数 内に， 再び X サブ コマンド を 含める こ とも 可能です. 
Y く パラメータ 1> 

D, E, F, G， H, L, M, Q， R， U および W サブ コマンドで 描画す る 直 
線 または 長方形の ライ ン スタイル を 規定し ます. 〈パラメータ 1〉 は， &H0 
〜& HFFFF の 範囲の 整数で なければ なりません. 

ライン スタイルの 内容に ついては， LINE を 参照して ください. 初期 状態 
は， ライン スタイル = &HFFFF となって います. 
Z く パラメータ 1> 

T および P サブ コマンドで， ぬりつぶす 際の ぬりつぶしの 色 または 〈タイ 
ルスト リング〉 による 模様 を 規定し ます. く パラメ一 タ 1〉 は， パレット 番 

号 または 〈タイル ストリング〉 が 格納され ている 文字列 変数で なければ な 
り ません. 

〈タイル ストリング〉 について は， 〔2〕PAINT を 参照して ください. 初期 
状態 は， C サブ コマンド により 規定され る パレット 番号 （C サブ コマンド 
未 実行時 は， フォアグラウンド カラ一） となって います. 

D， E, F， G, H， L， M, Q, R, S, T, U および W サブ コマンドの 実行で 
は， 修飾子と して N が 指定され ていない 限り， LP は 指定され た 点に 移り ます， A, 
C， P, S， Y および Z サブ コマンドの 実行で は LP は 変化し ません， 

また， A, C, S, Y および Z サブ コマンドの 指定 は， 指定の ある DRAW 文 だ 
けで なく， 以降の DRAW 文に も その 指定が 引き継がれます. これらの 指定 は， 
SCREEN 文の 実行時に 初期 状態に 戻り ます. 

参照 ： LINE, 〔 2 〕 PAINT 

100 SCREEN 0,0,0,1 

110 POINT(320,100) 

120 A$-"U60R60D60 し 60" 

130 DRAW A$ 

140 DRAW "BE45A2S(K5X-A$ に 

150 DRAW "A0BE10P" 

160 END 



DSKO$ (DISK モード) 



I 機 能 I ディスク に対して 直接 害き 込み を 行います. 

I 書 式 I DSKO$ く ドライブ 番号〉， く ヘッド 番号〉， く トラック 番号〉， く セクタ 番号〉 
I 文 例 I DSKO$ 1， 0， 19， 1 

I 解 脱 I 通常の ファイル 操作と は 無関係に， ディスク 上の 指定した セクタに 直接 書き込 

み を 行います. この 文 は， 既存の ディスク ファイル を 壊す 恐れが あります ので， 

いて は， ユーザーズ マニュアルで 説明され ています. 

DSKO$ は， その パラメータ により 指定され た セクタに， システム 用 バッファの 
内容 256 バイ 卜 を 書き込みます. システム 用 バッファ は， 通常の ディスク ファイル 
操作の 際に は 用いる こと はでき ません が， DSKI$ と DSKO$ による 直接 操作 の 際 
にの み， ユーザーが 用いる ことができます. 

書き込む データの 準備 は， ランダム アクセスの 場合と 同じよう に FIELD 文に 
よ り， システム 用 バッファへ 変数 領域 を 割り付けた 後， LSET, RSET によ り 行い 
ます. あるいは， VARPTR 関数に よ り， システム 用 バッファの 置かれて いる メモ 
リ 番地 を 調べた 上で， POKE 文に より バッファ 中に データ を 準備す る こと もで き 
ます. 

〈ヘッド 番号〉， 〈トラック 番号〉， 〈セクタ 番号〉 として 指定で きる 値の 範囲 は， 
指定され た く ドライ ブ 番号〉 の ディスク ドライ ブの 種類に よって 異なり ま すが， 
BASIC は， これらの 値の 範囲 を 自動的に 調べ， 不当であった 場合に は や Bad 
track/sector ,/ エラ一 とします • 詳しく は ユーザーズ マニュアル を 参照して く 
ださい. 

注意 ： それぞれの ディスクの 諸元に ついては DSKF 関数に よ り 調べる ことが で 
きます. 詳しく は ユーザーズ マニュアル を 参照して ください. 

参照 ： DSKI$, FIELD, DSKF, VARPTR 
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100 • WRITE TO THE DISK 

110 • この ブロ グラム は D I SK に 害き 込まれます 
120 ****** 不用意に 使用し ないで く ださい ****** 
130 FIELD «0,128 AS A$，128 AS B$ 
140 LSET A$-STRING$(128,CHR$(&HFF)) 
150 し SET B$=STRING$(128,CHR$(&HFF)) 
160 *START 

170 INPUT "Drive";DR 

180 IF DR<1 OR DR>8 THEN *START 

190 INPUT "Surface" JSU 

200 *REENT 

210 INPUT "Track, Sect er";TR,SE 

220 IF TR<0 OR TR>DSKF(DR, 0 ) THEN *REENT 

230 IF SE<1 OR SE>DSKF(DR,1) THEN *REENT 

240 DSKO$ DR.SU.TR.SE 

250 END 
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EDIT (DISK モード) 





式 


L 文 


例 



i 機 能 i 指定され た 行 を 画面 上へ 表示し， 以降 [MD, isy キー 等に よる プログラム 編 

集 を 可能に します. 



EDIT 



〈行 番号〉 



EDIT 30 




画面 上での 編集が できる ように， 指定され た 行 を 表示し， カーソル を その 行の 



先頭に 置きます. 以降， 



UP 



ROLL 
DOWN 



キ一 を 始めと する 各種 プログラム 編集 キー 



を 使用し， プログラムの 編集が 可能と なります. 

P 才 プショ ン 付きで セーブ された フ アイ ルを ロード して EDIT コマンド によ 

り， 内容 を 表示， 変更しょう とした 場合に は， Illegal function ca『 の エラーと 
なります. 



E 



4 

67 



END 



[M 能 I プ 口 グラムの 終了 を 宣言 します. 



ほ WI 



END 
END 




プログラムの 実行 を 終了し， すべての ファイル を クローズして コマンド レベル 
に 戻り ます. 



END 文 は プログラムの 実行 を 終了 させたい 所に 置けば よく， また， いくつ 置い 



て も かまいません. プログラムの 最後の END 文 は 省略す る ことができます 力、 
の 場合， ファイルの クローズ は 行われません. 



120 
130 
140 
150 
160 
170 



WIDTH 80,25 
CO し OR 7 
CIS 
« し OOP 

PRINT TIME$ 

A$=INKEY$ 
IF A$="s" THI 
GOTO 化 OOP 



END 



555556666666 

444444444444 

oooooooooooo 

U888888888888k 

rllllllllllllo 
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ERASE 



配列 変数 を 消去し ます. 

ERASE く 配列 変数 名〉 〔， 〈配列 変数 名〉 •••〕 
ERASE C, D 



指定した 配列 変数 を 消去し ます. 以後， 同一 変数 名の 配列 変数 を DIM 文で 宣言 
する ことができます. も し ERASE 文 を 実行せ ずに 同一 変数 名で 宣言す る と， 
、、！ Xiplicate Definition" エラ一 が 起こります. 

また， その 配列 変数に 割り当てられ ていた メモリ エリア を， 他の 目的に 使用す 
る こと もで きます. 



E 



参照 ： DIM 
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ERROR 




mm 




エラー 発生の シ ミュレ 一 ト， エラー 番号の ユーザー 定義 を 行います. 

ERROR く 整数 表記〉 
ERROR 200 

く 整数 表記〉 の 値 は 0 から 255 までの 範囲の 数 を 指定し ます. この 値が， すでに 

BASIC で エラ 一コードと して 使われて いる 場合， ERROR 文 は， その エラ一 の 発 
生 を シミュレート します. 

また， 未定義の エラー コードの エラー を プログラム 中で 条件に 応じて ERROR 
文で 発生 させ， ON ERROR GOTO 文に よって 指定され た エラー 処理 ルーチン 内 
で エラ一 処理 を 行う ことができます. 

参照 ： ON ERROR GOTO, ERLZERR, エラ 一コード 表 



サン ブル 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 



ON ERROR GOTO *ERMESSAGE 
*NYURY0KU 
INPUT "3 桁の 整數 入力せ よ. M ,N 
VF FIX(N)ON THEN ERROR 251 
IF N く 100 OR N>999 THEN ERROR 250 
PRINT USING "<###>" 5N 
END 

«ERMESSAGE 

IF ERR=250 THEN PRINT 

IF ERR-251 THEN PRINT 
PRINT 

RESUME *NYURYOKU 



3 桁と は 100 から 999 
実數は 人力で きません • " 



曹 I I 



M 



の 整数 入力せ よ • 12457 

と は 100 から 9991 ！ ！ 



の 整数 人力せ よ • 12. 
は 人力で きません. 



3 桁の 整數 入力せ よ • 777 

<777> 



n 桁 桁 桁 数 

^33 3 実 
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FIELD 〔#〕 く ファイル 番号〉， く フィールド 幅〉 AS く 文字 変数〉 〔， 〈フィールド 幅〉 

AS く 文字 変数〉 •••〕 
FIELD #1， 128 AS A$, 64 AS B$, 64 AS C$ 

ファイル バッ ファを ランダム ファイル バッファと して 使用す るた めに， フ ァ 
ィル バッファの 中に 文字 変数の 領域 を 割り当てます. この 変数 を 引用す る ことに 

より， バッファの データの 設定， バッファに 設定され ている データの 参照が 可能 

になります. 

PUT 文， GET 文 を 使って ラ ン ダム フ アイ ルの アクセス を 行う 前に 必ず， 

FIELD 文が 実行され ていなければ なり ません. 
< ファイル 番号〉 は， OPEN 文に よって ファイル を オープンした ときに 指定した 

番号です. 

〈フ ィ ール ド幅〉 は 〈文字 変数〉 に 割り当てる 文字 数です. 1 つの バッ フ ァ に は 文 
字数の 合計が， 256 文字まで ならば， いくつの 文字 変数 を 割り当てても かまい ませ 
ん. 

また， 1 つの バッファ に対して， 異なった 形式の FIELD 文 を 実行しても かまい 

でく ださい. もし 行う と， その 変数 は， 一般の 文字 変数 領域に 登録され， FIELD 
文での バッファの 割り当てが 無効と なり， 正しい ファイルの 入出力が 行われな く 

なります. 

また， 日本語 を フィールドに 設定す る 場合， 日本語 1 文字が 2 文字 分の フィ一 
ル ド を 必要 とする こと， およ び 日本語 文字列の 前後に シフト コード （KI コード お 
よび K0 コード それぞれ 2 文字 分) が 挿入され る ことに 注意して く ださい. 例え 

ば， 

LSET A$= 、、日本語" 
のために は 最低 10 文字 分の フィールド を 必要と します. したがって， 10 AS A$ と 

してお く 必要が あります， 

ド幅を 越えて 値 を 代入す る こ と はでき ません. 数値 をフィ 一ル ドに 設定す る 場合 
は その 数値 をい つたん 文字 型に 変換して から 代入し ます （MKI$, MKS$， 
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MKD$ を 使用し ます). 



参照 ： OPEN, GET, PUT, LSET/RSET, MKI$， MKS$， MKD$, CVI 
CVS, CVD 

100 OPEN "RTEST.DAT" AS #1 

110 FIELD ttl,30 AS A$,30 AS B$,30 AS C$ 

120 • -- DUMMY$ は A$+B$+C$ のた めの タ* ミーです -- 

130 FIELD #1 ,90 AS DUMMY$,2 AS D$,4 AS E$, 8 AS F$ 

140 し SET A$="NEC" 

150 し SET B$= "Personal" 

160 し SET C$= "Computer" 

170 RSET D$=MKI$( 12345) 

180 RSET E$=MKS$( 228000! ) 

190 RSET F$=MKD$( 6. 6261 800000000 18D-34) 

200 PUT #1,1 

210 GET #1,1 

220 PRINT A$ 

230 PRINT B$ 

240 PRINT C$ 

250 DX-CVI (D$) 

260 E=CVS(E$) 

270 F*=CVD(F$) 

280 PRINT DXrPRINT E:PRINT F 橼 

290 END 



run 
NEC 

Personal 
Computer 

12345 

228000 

6.626180000000018D-34 
Ok 




(DISK モ 




匚 




ディスクに 入って いる ファイルの 名前， 種類と 大きさ を 出力し ます. 

1) FILES 〔く ドライブ 番号〉〕 

2) LFILES 〔く ドライブ 番号〉〕 
FILES 2 

〈ドライブ 番号〉 で 指定され た， ディスク 上に 登録され ている ファイルの 名前， 
種類と， その 大きさ を 表示し ます. 書式 1) の 場合 ディスプレイに， 書式 2) の 場 
合 プリンタに 出力し ます. ファイルの 大きさ は， クラスタ という 単位で 表示され 
ます. クラスタに ついては， ユーザ一 ズ マニュアル を 参照して ください • 
く ドライブ 番号〉 が 省略され た 場合に は， ドライブ 1 が 選択され ます • 
ファイルの 種類 は， 出力され る ファイルの 名前と， タイプとの 区切り 文字に よ 
つて 表されます. 区切り 記号が 空白の 場合に は， その ファイル は アスキー セーブ 

ル， あるいは， OPEN 文に よって 作られた， BASIC のデ 



された 




—タ ファイル である こと を 示します. 区切り 文字が ピリオドの 場合に は， パ イナ 
リセ一 ブ によって 作られた プログラム ファイル， ァス タリ スクの 場合に は， 
BSAVE によって 作られた 機械語 ファイル である こと を 表します • 



F 



参照 ： SAVE, BASVE 



files 

menu - 2 
setinf .n88 1 
xf iles-hd 1 
dicmen.n88 6 
Ok 



BUNSET SU 73 

xf iles.n88 1 
dir .hd 1 
DDconv.n88 1 



KAN J I DIC 5 

sysgen.ni p 2 
backup . hd 2 
mouse *cod 1 



format .nip 3 
format. hd 2 

mkfont.n88 2 
tele .n88 5 



backup. n88 3 
recov . hd 3 

switch. n88 4 

XMODEM*BIN 2 
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FOR TO STEP-NEXT 



機 能 




FOR 文から 

FOR 〈変数 名 >= く 初期値〉 TO く 終値〉 (STEP く 増分〉〕 
S 

NEXT 〔〔〈変数 名〉〕 〔， 〈変数 名〉〕〕 

FOR J = 0 TO 100 STEP 2 

S 

NEXT J 



〈変数〉 は カウンタ として 使われ， 最初に 初期値に 設定され ます. そして， FOR 



文 以降 か ら NEXT 文 ま でが 実行 さ れ， カウンタ の 値 は STEP によつ て 指定 さ れ 
た 〈増分〉 だけ 増減され ます. 次に カウンタの 値が 〈終値〉 と 比べられ， カウンタ 
の 値 力 5 く 終値〉 に 達して いなければ， FOR 文の 次の 文へ 戻り， 同じ 処理が 繰り返さ 
れ ます. 

STEP 文が 省略され た 場合， 〈増分〉 は + 1 とみな されます. また， 〈増分〉 は， 
負の 値 をと る こと もで きます. 
次の 場合に は， FOR〜NEXT 文 は 実行され ずに， NEXT 文の 次へ 実行が 移り 

ます. 

1) 〈増分〉 が 正の 値で， 〈初期値〉 が く 終値〉 より 大きい 場合. 

2) 〈増分〉 が 負の 値で， 〈初期値〉 が 〈終値〉 より 小さい 場合. 
ただし， く 変数〉 に は 〈初期値〉 が 代入され ます. 

FOR〜NEXT は 入れ子 構造に する ことができます. これ は 1 つの FOR 



NEXT のなかに も う 一つの FOR〜NEXT を 置く こと がで き ると いう ことで 



この場合， それぞれの 〈変数〉 は 別の もの を 使わなければ なりません. また， 1 
の FOR〜NEXT は 完全に 他の FOR〜NEXT の 内部に なければ な り ません， 

FOR 文と NEXT 文と は 必ず 1 対 1 に 対応して いなければ なり ません. した 力: 
つて， IF 文中に NEXT 文 を 置く 事が できない 場合が あり ます. 



I 



ン プル 
p グラム 



100 SCREEN 0:CLS 3 

110 FOR R=10 TO 200 STEP 20 

120 FOR 1=0 TO 3.14 STEP . 

130 Y=SIN(I)*COS(I) 

140 X=SIN(I)*SIN(I) 

150 Y=Y*R+100 

160 X=X*R»2.5+100-C 
170 PSET (X, Y) 
180 NEXT I 
190 C=C+10 
200 NEXT R 
210 END 
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GET 



I 機 能 I フ アイ ル 中の デー タを バッファ に 読み込み ま す. 



rr 式 「 get 〔#〕 〈ファイル 番号〉 〔， く 数〉〕 



文 例 



GET 3， 5 



[ 




口 



〈ファイル 番号〉 で 指定され た ファイル 中の データ を， 対応す る バッファ 中に 読 

み 込みます. GET は， 指定され た ファイルが ディスク ファイル かどう かで， その 
動作が 異なります. 

〈ファイル 番号〉 で 指定され た ファイルが ディスク ファイル である 場合に は， 
GET は ランダム ファイルからの レコード を 読み込みます. 指定され た ファイル は 



ラ ン ダム アクセスの モー ドでォ 一 




いなければ なりません. 〈数〉 はファ 



ィルの レコード 番号と して 解釈され， 指定され た レコードが バッファに 読み込ま 

れ ます. レコード 番号が 省略され た 場合に は， 直前に 行われた， GET, PUT で 指 
定 された レコードの 次の レコードが 読み込まれます. レコード 番号の 最小値 は 1， 
最大値 は 65000 です. 

GET を 行った 後で， INPUT #， LINE INPUT # 等の シーケンシャル • ァクセ 
ス 入力 を 行った 場合に は， バッファに 入って いる データから 入力が 行われ ますの 
で 注意して ください. 

く ファイル 番号〉 で 指定され た ファイルが キ一 ボー ド ファイルの 場合に は， GET 

は， 指定され た ファイルに 対応す る 装置から 指定した 文字 数 を バッファ 中に 読み 
込みます. 指定され た ファイル は 入力 モ一 ドで オープンされ ていなければ なり ま 
せん. く 数〉 は， ファイルから バッファに 読み込む 文字 数 を 意味し， 0 から 255 ま 
での 値で 指定し ます. 〈数〉 が 省略され た 時， 及び 0 が 指定され た 時には 256 文字 を 

gTC か;^ み ま ， • 

GET は バッファへの 読み込み を 行う ものです. 読み込んだ データ は フィールド 
変数で 参照す る ことができ ま す. 

参照： OPEN, FIELD, PUT 



サン プノ レ 



100 
110 
120 
130 



150 
160 
170 
180 



OPEN "DATA" AS ttl 

FIELD »1,4 AS I$,20 AS N$,50 AS A$ 
INPUT "会 貝 コート， "；1 
IF 〖-0 THEN END 
GET 

PRINT M 会 貝 コート • M ;CVS(I$); 
PRINT M R*";N$; 
PRINT M ttW M ;A$ 
GOTO 120 
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GET® 



L 機 能 1 画面 上の グラフィック パターン を 配列 変数に 読み込みます. 



I 書式 I GET 〔@〕 (Sx, S Vl )- 



文 例 



(Sx 2 ， Sy 2 ) 
STEP(x， y) 



， く 配列 変数 名〉 〔(く 要素 ナンバー 




GET (100， 50)— (130， 70)， G% 



画面 上の スクリーン 座標の 2 点 (S Xl , SyJ と （Sx 2 ， Sy 2 ) を 結ぶ 線 を 対角と する 

角 形の 領域 を， 〈配列 変数 名〉 で 指定され た 配列 変数に 読み込みます. 
気を付けなければ ならな いのは， BASIC の グラフ ィ ック 命令の ほとんどが ヮ 
—ルド 座標 を 用いて 使用す るのに 対し， この GET@ 命令と PUT@ 命令 （PUT 

@ 参照） は， ビュ一 ポート 内に 展開され る スクリーン 座標 を 使用し なければ なら 
ない ことです. また 2 つ 目の 座標 指定に は 相対 座標に よる 指定が 許されて います. 

〈配列 変数 名〉 は， ユーザ一 が グラフ ィ ック データ を 読み込む ために 用意す る 数 

値 型の 配列 変数の 名前です. また この 配列 変数に 対して 〈要素 ナンバー〉 を 指定 

する こと もで きます. この 〈要素 ナンバー〉 は， グラフィック パターン を 配列 変数 

に 読み込む 際に， どの 要素から 格納し 始める かの 指定です. 省略した 場合 は 配列 
の 最初から 格納し ます. 1 つの 配列 変数に 対して 複数の グラフ ィ ック データ を 格 
納 する 場合に 使う こ とがで きます. 

確保すべき 配列 変数の 大きさ は， 読み込む 領域の 大きさ， 現在の スクリーン モ 
ード， 配列 変数の 型に よって 異なり ますが， 1 つの 配列に 1 つの パターン しか 読 
み 込まない 場合 は， 次の 計算 式で 求める ことができます. 複数 パターンの 場合 は 
それぞれの パターン について 計算し， その 分 確保し なければ なりません. 



く 必要な バイ ト数〉 = ((く 横の ドッ 



ただし 白黒 モー ドの時 




8 色 カラ 一モードの 時 
16 色 カラ 一モードの 時 

〈添字の 値〉 二 く 必要な バイト 数〉 ¥N+1 

N は 配列 変数の 型に よ つ て 変わ ります 



整数 型 配列 
単精度 型 配列 
倍精度 型 配列 



N= 2 
N= 4 
N= 8 



* く縱の ド ッ 

M= 1 

M= 3 
M= 4 




ただし この 〈添字の 値〉 と は， 1 次元 配列で 添字の 底が 0 の 時 （OPTION 
BASE 参照） の 最小値です. 一般に GET@ では 1 次元の 配列 変数 を 用います. 
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この GET@ 文 は 後述す る PUT@ 文と 密接な 関係に あり， 通常 ペアで 使用され 



GET@ 命令 実行 後， LP (Last referenced poin り は （Sx 2 ， Sy 2 ) に 移されます • 
参照 ： PUT®, OPTION BASE 

5 ロング や, レ I 100 SCREEN 0,0:CLS 3 
1 110 XD=40: YD=20 



130 FACT=BYTE¥2+1 

140 DIM GX ( FACT ) 

150 ' 

160 し INE(0,0) - STEP(XD - 1 ,YD - 1 ), 1 ,B 

170 CI RCLE( XD/2- 1 • YD/2- 1 ) , YD/2 , 4 

180 GET(0,0)-STEP(XD- し YD-1),GX 

190 f 

200 FOR X=0 TO 500 STEP 100 

210 PUT (X,100),GX:NEXT 



ます. 
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GOSUB〜RETURN 



サブルーチンの 呼び出し， および サブルーチンからの もどり を 制御し ます. 

GOSUB く 行 番号〉 

S 

RETURN 〔く 行 番号〉〕 
GOSUB *SUB1 

サブルーチンと は， 他から 独立した プログラムで, RETURN 文で 終って いる も 
の をい います. これら は， GOSUB 文に よって 呼び出されます. RETURN 文 は 対 
応 する GOSUB 文の 次の 文に 制御 を もどします. 1 つの サブルーチンの 中から 他 
の サブルーチン を コールす る こ と もで き， これ を サブルーチンの 多重化と 呼び ま 
す. この 多重化 は メモリの スタック 領域の 容量が 許す 限り 行う 事が でき， もし， 
スタック 領域が 足りな く なった 場合に は，、、 Out of memory" エラ一 が 起こ り ます. 

サブルーチン は 必ず GOSUB 文に よって コールされ なければ な り ません. も 
し， 単独で 実行した 場合， RETURN 文に 出会う とノ RETURN without GOSUB" 
エラーが 起こります. 

また， 1 つの サブルーチン 内に 複数の RETURN 文が あっても かまいません 



なお，. RETURN 文で はく 行 番号〉 を 指定して， 条件に 応じて 特定の 行へ 強制的 
に リターンさせる ことができます， 



参照 ： CLEAR 



100 '三角形の 面積 を 求めよ • 

110 «START 

120 INPUT "«ifl ： H ;TEIHEN 
130 INPUT "高さ： "； TAKASA 
140 GOSUB «MENSEK I 
150 PRINT "面積 は"： MENSEKI 
160 PRINT 

170 GOTO «START 
180 *MENSEKI 

1 90 MENSEK I -TEI HENWAKASA/2 
200 RETURN 
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run 

100 
50 
2500 

145 
20 
1450 




356 
180 
32040 



？ ？ ？ ？ ？? ？ 7 

辺さ植 辺 さ 積 辺 さ 積 辺 さ 積 

底 高 面 底 K 面 底 高 面 底 高 面 



底辺 ： ？ 

Break In 120 
Ok 



、i 



GOTO/GO TO 



指定 さ れた 行へ 制御 を 移行 します. 

1) GOTO 〈行 番号〉 

2) GO TO く 行 番号〉 
GOTO 500 
GOTO 氺 SI 

I 解 脱 I 〈行 番号〉 の 行へ 制御 をき します. 

書式 1)， 書式 2) は 全く 同 機能です. 




100 »START 

110 PRINT "How do you do?" 
120 GOTO *START 



run 








How 


do 


you 


do? 


How 


do 


you 


do? 


How 


do 


you 


do? 


How 


do 


you 


do? 


How 


do 


you 


do? 










Break 


in 11 


10 


Ok 










、、gct と 、、tct の 間の スペース は l 個の みが 許されます. 2 個 以上の ス 



ペース を 入れた 場合, 
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HELP 



[m 能 I ヘルプ キ 一による 割り込みの 許可， 禁止， 停止 を 制御し ます, 



rT x^l 1) HELP ON 

2) HELP OFF 

3) HELP STOP 



HELP OFF 




書式 1) 割り込み 動作 を 許可し ます. 

こ の 命令 実行 後， ヘルプ キ一 を 押す ご と に 割 り 込みが 発生し， ON HELP 

GOSUB によって 定義され た 処理 ルーチンに 分岐し ます. 
害 式 2) 割り込み 動作 を 禁止し ます. この 命令 実行 後， ヘルプ キ一 を 押しても 処 

理 ルーチンへの 分岐 は 起こ りません （ヘルプ キ一 は 通常の 動作 をし ま 

す). 

書式 3) 割り込み 動作 を 停止し ます • この 命令 実行 後， ヘルプ キ一 を 押しても 押 

された こと を 覚えて いる だけで, 処理 ルーチンへの 分岐 は 起こ り ません. 
しかし， その後 HELPON 命令に よって 割り込みが 許可され ると， 先程 
の ヘルプ キー を 押した ことによって 処理 ル一 チンに 分岐し ます • 

注意 ： プログラム 終了 時には HELP OFF を 実行して おいて く ださい. さもない 
と 本来の ヘルプ キーの 機能が 失われます. 

参照 ： ON HELP GOSUB, KEY ON/OFF/STOP 



サン ブル 
プログラム 



100 ON HELP GOSUB *MENU 
110 HELP ON 



1000 *MENU 



1200 RETURN 
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IF-THEN-ELSE/IF-GOTO 




i 機 能 



[WW 



論理 式の 条件 判断 を 行います. 



IF く 論理 式〉 



THEN 



〈文〉 




〔E し SE 


〈文〉 


〈行 番号〉 






〈行 番号〉 



GOTO く 行 番号〉 



〕 



IF A$= 、、y〃 THEN * START ELSE 120 

論理 式の 条件に よって プログラムの 実行 を 制御し ます. 即ち， 〈論理 式〉 が 真 （0 
以外） ならば， THEN あるいは GOTO 文 以降 を 実行し， 偽 （0) ならば ELSE 文 
以降が 実行され ます. も し， ELSE 文 以降が 省略され ている 場合に は， 次の 行が 実 
行され ます. 

IF〜THEN〜ELSE 文に おいて， THEN 文 は ELSE に 続けて 別の IF 文 を 置 

いて 多重に する ことができます. ただし， 多重で きる の は 1 行に 書け る 範囲に 限 

られ ます. 



%u^t I 100 • -- real or Imaginary -- 

110 INPUT A 

120 F し G=0 

130 IF A<0 THEN A=ABS( A ) : F し G= 1 

140 PRINT SQR(A); 

150 IF FLG THEN PRINT "i" ELSE PRINT 

160 END 



run 
？ 743 

27.258 
Ok 
run 

？ -653.23 
25.5584 i 
Ok 
run 

？ -3.9576 
1 .98937 i 
Ok 
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I 機 能 I キーボードから データ を 入力し， 変数に 代入し ます. 

L^^l INPUT 〔く プロンプト 文〉 ； 〕 く 変数〉 〔， 〈変数〉 •••〕 



^^^^^ L 、 f ^^^^^^^^^^K ■ 



INPUT 、、住所 ク ； A$ 



INPUT 文が 実行され る と， プログラム はキ一 ボ一 ド からの 入力 待ちの 状態と 



なります. プロンプト 文 はデ一 




ッセ— 



ジ です. く プロンプト 文〉 にセミ コロンに） が 続いた 場合に はさら にク エツ ショ 
ン マーク （？） と 1 桁の スペースが 画面に 表示され ますが， コンマ （，） が 続いた 
場合に は 〈プロンプト 文〉 の 後に は 何も 出力され ません. 

データ は リターン キー を 押す ことによって 入力され， 変数に 代入され ます. 〈変 
数〉 を コンマ （，） で 区切って 複数個 指定した 場合に は， 入力す る データ も コンマ 
で 区切って く 変数〉 の 数 だけ 入力し なければ なり ません. また， 対応す る 〈変数〉 
と データの 型と は 一致して いなければ なりません. もし， 個数 や 型が 違って いた 
場合に は 、、？ Redo from star ビ を 出力して 再び 入力 待ちと なります. 

また， 何もせ ずに リタ一 ンキ一 を 押した 場合に は 0 ゃヌ ルス ト リ ングが 入力 さ 

れた とみな されます. この場合 も 〈変数〉 が 複数の 場合， 必要 数の コンマ だけ は 

入力し なければ なりません. 

文字 変数に 文字列 を 代入す る 場合， コニ 
入力した いとき は， ダブル クオ一 テ一シ ヨン （つで 文字列 を 囲む 必要が あります • 

この場合 は 文字と して ダブル クオ一 テ一シ ョ ンを 入力す る こと はでき ません. こ 

れ 以外の 場合に は， 文字列 を ダブル クオ一 テーシ ヨンで 囲む 必要 はあり ません. 

入力 を 中断したい 場合， STOP キ一 あるいは CTRL-C キー を 入力し ます • プロ 

グラムの 実行中に 入力 を 中断す ると， STOP ON および STOP STOP の 状態に 

ない 限り， プログラムの 実行 も 中断され， コマンド モードに もどります. また， 

それまでに 入力した 値 はすべ て 無効と なります （変数に は 値が 代入され ません) • 
日本語の 入力 を 行う 場合， CTRL-XFER を 入力す る ことにより 日本語 入力 モ 
—ド にします. 

日本語 入力 モードに おける 日本語の 入力 方法に 関して は ユーザーズ マニュアル 
を 参照して ください. ' 





参照 ： LINE INPUT, KINPUT, INPUT WAIT 
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); "才" 



プロ 



ル 
ム 



100 


INPUT 


it 


110 


INPUT 


•• 


120 


INPUT 


M 


130 


PRINT 


M 


140 


PRINT 


鲁鲁 


150 


PRINT 


寒 1 



run 



'• ； NA$ 
" ； SEX$ 
" ； 0 し D 
： ",NA$ 
： " . SEX$ 



名 性 年 名 性 年 



沢 

松， 2 

？?? 

名 性 年 名 性 年 は 



冶 f 

0 け 

3 

^ 沢 2 

S 刖齡 前別齡 謙 し. 3 
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シーケンシャル ファイルからの データ を 読み込みます. 

INPUT # く ファイル 番号〉， く 変数〉 〔， く 変数〉 •••〕 
INPUT #1, A， B 

データ を 読み込む 対象が シーケンシャル ファイル である こと と， ク エツ シ ヨン 
マーク （？） が 出力され ない こと を 除けば， INPUT 文と 同じです. 

〈ファイル 番号〉 は， OPEN 文に よって， その ファイル を 入力と して オープンし 
たと きに 使った 番号です. 

ファイルに 書き込まれ ている データ は， INPUT 文に 対して 必要な データと 同 
様の 正しい 形に なって いなければ なり ません. 

すなわち， 数値 変数に 代入され る 値 （数字の 並び） は 空白， コンマ あるいは キ 
ャ リッジ リターン （CHR$(13)) で， また， 文字 変数に 代入され る 値 （任意の 文字 
の 並び） は コンマ あるいは キヤ リ ッジリ ターン （CHR$(13)) で それぞれ 区切られ 
ていなければ なりません. 

参照 ： OPEN 



100 

no 

120 
130 
140 



170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 



' -- Sequential data 

OPEN "STEST.DAT" FOR OUTPUT AS »1 
PRINT ttl,DATE$;", M ;TIME$ 
*DATAWRITE 
INPUT "品名"； NA$ 

IF NA$-"END" OR NA$= M end" THEN *EXIT1 
INPUT "価格"； PLC 
INPUT 儷 "I NX 
PRINT 眷1 ,NA$I",":P し CINX 
GOTO «DATAWRITE 
*EXIT1 
PR I NT: CLOSE 

"一- Sequent i al data read 一- 
TOT A し- 0 

OPEN "STEST.DAT" FOR INPUT AS 斡 1 
INPUT #1,DA$,TI$ 

PRINT "曰 付 ： "：DA$, "時間 ： ":TI$ 



»DATAREAD 

IF EOF(l) THEN *EXIT2 
INPUT #1,NA$,PLC,NX 
SUM-P し ONX 

PRINT NA$;TABU0) :P し C に *"INX; "へ SUM 
TOTA し- TOTA し +SUM 
GOTO *DATAREAD 
*EXIT2 

PRINT: PRINT •' TOT A し-' 、 TOT A し 
END 
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run 



？ 
？ 
？ 

？ 

？ 
？ 



2500 
1 

牛肉 

800 

4 

END 



85/06/06 




• 



米 

牛肉 



2500 * 1 
* 4 



= 2500 
3200 



TOTAL= 5700 
Ok 
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名 格 数名 格 » 名 付 

Dsffifil 品 価 儷 A 曰 



WAIT 




キーボードから データ を 入力し， 変数に 代入し ます. その 際， 入力 待ち時間 を 制 



；] 



限す る ことができます. 




く 待ち時間〉， 〔く プロンプト 文〉 



〕 く 変数 名〉 し く 変数 名〉 •••〕 



：3 




100， "Your name ク ； NA$ 



〈待ち時間〉 で 指定され た 時間 だけ キ 一ボードからの 入力 を 待ちます • 〈待ち 時 

間〉 の 単位 は 0.1 秒です. 

INPUT WAIT は 待ち時間に 制限が ある こ と を 除けば， INPUT 文と 同様に 機 

能し ます. ただし， この 文の 後に マルチ ステートメント として 他の 文 を 続けた 場 

実行し， 入力が 行われなかった 




合， 

時 は， 後の 文 を 無視し 次の 行へ 実行が 移ります から， プログラミングの 際 は 注意 
してく ださい. 



サンプル 
プログラム _ 



100 



120 
130 
140 
150 
160 
170 
180 
190 



'-- computer teacher -- 

PRINT "Problem". 

PRINT A; M *";B; M » M ; 
INPUT WAIT 30, ANS:G0T0 *EXIT 
PRINT:PRINT "Tine over ！" 
*EXIT 

IF ANS=A+B THEN PRINT "Right 
PRINT "Wrong ！", 
*ANS:BEEP:PRINT "Answer 



GOTO *ANS 



！ M ： GOTO *ENTRY 



• 



A+B:G0T0 GENTRY 



run 

Problem 
Right ！ 
Problem 
Wrong ！ 
Problem 
Right ！ 
Problem 



2 ♦ 61 »? 63 

96 ♦ 97 "？ 195 
Answer = 193 
38 + 84 =? 122 

85 + 79 =? 



Time over ！ 
Problem 
Break In 140 
Ok 



Answer * 164 
♦ 36 =? 
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KEY 



キーボードの 上部に ある プログラマ ブルファン クシ ヨン キーに 与える 文字 を 定義 
します. 

KEY く キー 番号〉， く 文字列〉 
KEY 1， 、、Yes な + CHR$(13) 

KEY 3， CHR$(&H22)+、、BASICT + CHR$(&H22) 

ファンクション キ一 は 10 個 あり， 10 個の 〈文字列〉 を 記憶 させて おく ことができ 
ます. 各 ファンクションキー は 最大 15 文字までの 文字列お よび コ ン ト ロール 文字 
を プログラム できます. キーボードから 入力で きない 文字 は， CHR$ 関数で 与え ま 
す. 

注意： ファンクションキーに 日本語 文字列 を 定義す る こと はでき ません. 
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KEY LIST 



文 例 




一の 内容 を 画面に 表示し ます. 



I 胃 《I KEY LIST 



KEY LIST 




ファンクションキーの 内容の 一部 は 画面の 最下 行に 表示 させて おく ことができ 
ますが， KEY LIST では， そのす ベての 内容 を 画面に 表示させる ことができます. 



KEY 







颺 



停止 を 制御し ます. 



1) KEY 〔（く キー 番号〉）〕 ON 

2) KEY 〔（く キー 番号〉）〕 OFF 

3) KEY 〔（〈キー 番号〉）〕 STOP 
KEY ON 

KEY (3) ON 



ファンク ショ 



ン キーが 押された 時に 起こる 割り込み を 許可す るか （ON), 禁止 
する カゝ （OFF), 停止す るか （STOP) を 宣言し ます. 

〈キ一 畨号〉 と は， 1 から 10 までの プログラマ ブルフ アン クシ ヨン キ一 の 番号 
を 表わします • 省略され た 場合 は 1 から 10 までのす ベての ファンクションキーに 

対して 実行し ます. 

書式 1) 割り込み 動作 を 許可し ます • この 命令 実行 後 は， 指定され た 〈キー 番号〉 

の ファンク ショ ン キー を 押す ごとに 割り込みが 発生し， ON KEY 
GOSUB によって 定義され た 処理 ルーチンに 分岐し ます • 
害 式 2) 割り込み 動作 を 禁止し ます • この 命令 実行 後 は， ファンクションキー を 

押しても 処理 ルーチンへの 分岐 は 起こ り ません (通常の ファンクション 



キーの 動作になります）, 



書式 3) 



の 命令 実行 後 は 



押して も 押された こと を 覚えて いる だけで， 処理 ル一 チンへの 分岐 は 起 

こりません. しかし， その後 KEY(n)ON 命令に よって 割り込みが 許可 

される と， 先程の ファンクションキー を 押した ことによって 処理 ルー チ 
ンに 分岐し ます. 



参照 ： ON KEY GOSUB 
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サ ン ブ"^ 

プロ ダラと 



100 ON KEY GOSUB *FKEY! , ,«FKEY3 
110 KEYd ) ON:KEY(3) ON 



1000 'FKEY1 PROCESSING 
1010 *FKEY1 



1200 RETURN 

2000 ' FKEY3 PROCESS I NG 
2010 *FKEY3 



• 

2200 RETURN 



KILL (DISK モード) 



文 例 



ディスクから ファイル を 削除し ます, 

KILL く ファイル ディスクリプタ〉 
KILL 、、2 ： DATA1 /7 






、ら 削除し ます. 

削除す る ファイル は クローズ 状態に なって いなければ なりません. もし ォ一プ 
ン 状態の ファイル を 削除しょう とすると や File already open〃 エラ一 が 起こり ま 
す. また 1 つの KILL 




KILL 命令 はすべ ての ディスク フ アイ 



ついて 使用で きます. 



92 



(DISK モード) 



i 機 能 i キーボード か 



【m， 




0 KINPUT く 変数〉 





KINPUT 文が 実行され ると， 自動的に 日本語 入力 モードに 入ります. INPUT 
文との 違い は 自動的に 日本語 入力 モ一 ドに 入る か 否かの 違いです. 



日本語 入力 モード 




, ユーザ— ズマニ ユア 

ルを 参照して ください. 

KINPUT 文 は， 他の INPUT 関連 文と 異なり， 1 つの 文で は 1 つの 変数し か 指 
定 できません. また， 




注意 ： KINPUT 文での 入力 は 偶数 桁から にな ります. LOCATE 文で 奇数 桁 を 
指定した 場合 は， その 桁 数に 1 を 加えた 桁が 指定され たものと 解釈し ます. 
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KPLOAD (DISK モード) 



1 機能 I 利用者 定義 文字 ノ 《ターン を 登録 します. 



[T 式"！ KPLOAD 〈漢字 コード〉， 〈整数 型 配列 名〉 



KPLOAD &H762A, CHRPTN% 




〈漢字 コード〉 で 指定され た 漢字の 文字 パターン として， 〈整数 型 配列 名〉 で 指定 
された もの を 登録し ます. 
〈漢字 コード〉 として は， &H7621 から &H767E および &H7721 から &H777E ま 

での 値が 指定 可能です. く 漢字 コード〉 が この 範囲 にないと き は， Illegal function 
call" エラーと なります. 

〈整数 型 配列 名〉 の 指定に は， 配列の 要素 番号 を 指定す る こと はでき ません. ま 
た， 配列 内に 格納され ている 文字 パターン は 以下のような 形式で なければ なり ま 
せん. 

配列の 第 1 要素 =16 
配列の 第 2 要素 =16 
配列の 第 3 要素から 第 18 要素までに， 以下の よう に 実際の 文字 パターンの ド ッ 
卜 イメージ を 格納して ください. 



配列の 第 3 要素 = &H8II2 
配列の 第 4 要素 = &H4222 



配列の 第 18 要素 = &HXX YY 







16 

ト' 

'ン 

卜 



♦ 



'ツ ト 



左の 8 ドット 
右の 8 ドット 



洤意 ： 〈漢字 コード〉 の 範囲 は， 機種に より &H7621 〜& H765F の 範囲に 制約され 
る ものが あります 力、 BASIC は &H7621 〜& H767E， &H7721 〜& H777E 

の 範囲 チ ヱック しかしません ので 注意が 必要です. 



サ ン 二 


t ル 


プ ログ 


ラム 



100 DIM CHRPTN%(17) 

110 CHRPTNX ( 0 ) = 1 6 ： CHRPTNX ( I ) = 1 6 

120 FOR 1=2 TO 17:CHRPTNXU)-&H1U1:NEXT I 

130 KPLOAD &H762A, CHRPTNX 

140 PRINT KNJ$("1B4B")+KNJ$("762A M )+KNJ$("1B48") 
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変数に 値 を 代入し ます. 

CLET] く 変数 名〉 = く 式〉 
LET 1 = 1 + 1 
l = (l + l) *J 

A$ = STRING$ (Ll， 、、*々） 

キーワード LET はなくても かまいません. 

く 式〉 の 内容 は， 数値， 文字列の いかなる 型で あっても かまいません. ただし， 
文字 型から 数値 型への 代入 または その 逆 は 許されません. 型の 異なる 数値 型 変数 
への 代入で は 左辺の 精度に 合わせた 代入が 行われます. 



95 



LINE 




指定され た i 点 間に 直線 を 引きます • 



LINE 〔 



(Wx lf Wy! 



STEP(x lf yj 



〕— 



(Wx 2 ， Wy 2 ) 
STEP(x 2 , y 2 ) 



〔， くパ レツ ト 番号 1〉〕， 〔 



B 

BF 



〕 



〔, 




くパ レツ 卜 番号 2〉 
く タイル ストリング〉 



〕 



L 文 ,」 LINE (100， 100) - （135， 100)， 7，， &HF99F 



ワールド 座標系の 2 点 (Wx H WyJ と （Wx 2 ， Wy 2 ) を 結ぶ 直線 を 描きます • 
(W Xl , WyJ が 省略され た 場合， LP の fit を 採用し ます • STEP を 付ける と 相対 座 

標 による 指定に なり ます. 

引く 線の 色 はく パレット 番号 1〉 により 指定し， もし これが 省略され た 場合， 現 
在 COLOR 文に よって 設定され ている， グラフ ィ ック 画面の フォアグラウンド 力 
ラーが 採用され る ことにな り ます. 

次の パラメータに は， B か BF のど ちらか を 指定す る ことができます • B は 
Box の 意味で (Wx^WyJ と （Wx 2 ，Wy 2 ) の 2 点 を 対角と する 四角形の 箱 を 描き， 

BF は Box Fill の 意味で その 

〈ライ ン スタイル〉 を 指定す る こと はでき ません • また， 〈パ レツ 卜 番号 2〉， 〈タイ 

ルスト リング〉 は BF 指定のと きに だけ， 指定 可能です. 
〈ライン スタイル〉 は， 弓 I く 線の 形態 を 設定 




ョ ン パラメ一 タ であり， 
16 ビッ 卜で 表わす ことので きる 数， &H0 から &HFFFF(16 進） の 値 をと る ことが 
できます. この 16 進の 数値と ライ ンの 形態との 関係 は 次の 図に 示す 通りで， 16 進の 



数の 16 ビッ ト と 画面 上の 16 ビッ 卜が 1 対 1 に 対応して おり， 、、： I なの 立って いる ピ 
ッ トに 対応す る ドッ 卜が 表示され， 、、0〃 のビッ 卜に 対応す る ドッ トは 表示され ま 



， 16 ビッ トに 対応 させて 考え 



せん. 




る 場合， 16 進数の 方が わかりやすく 一般的です • また 線の 長さ を 16 ビット 以上 引 
いた 場合， この ライン スタイルが 画面 上の 16 ビッ ト ごとに 繰り返される ことにな 

り ます. 



次の 図 は 文例 を 実行した 場合の ものです が， 水平 座標の 100 から 135 までの 36 ド 



ッ 卜の 間に， 1 点 鎖 線の ライ ン スタイルが 繰り返され ている のが わかり ます. 

このように ライ ン スタイル を 指定す る と， 16 ビッ ト 単位で 線の 形態 を 決める こ 
とがで きます から， 折れ 線グラフ や 図面の 作成の 際， 点線 や 1 点 鎖 線な ど 簡単に 
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、 



ル〉 が 省略され た 場合 は， ノーマルな 直線 



用いる ことができます. 

を 引きます. 

くパ レツ ト 番号 2〉 は， 四角形の 内部 を 塗りつ ぶす 際の 色 を， 〈タイ ルス ト リ ング〉 

は， 塗りつ ぶす 際の 模様 を 指定し ます • BF 指定が あり， くパ レツ ト 番号 2〉 および 
く タイ ルス ト リ ング〉 共に 省略され た 場合に は， 四角形 を 描いた のと 同じ 色で 内部 
を 塗りつぶします. 
〈タイル ストリング〉 について は， 〔2〕 PAINT を 参照して ください. 



ライン スタイル （&HF99F) 



F 



9 



9 



F 













1 | 0 


0 | 1 | 


1 | 0 | 0 | 1 


1 1 | 







ひ 




16 ビツ ト 



(100, 100) 



(135, 100) 




ライン スタイル 
(16 ドット） 

LINE( 100. 100) — （135， 100). 7， ■ &HF99F を 実行 し た 時 



ライン スタイル 
(16 ドッ 



LINE 文 を 実行した 場合， LP は （Wx 2 ， Wy 2 ) に 移動し ます 
参照： 〔 2 〕 PAINT 
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100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 



SCREEN 0,0,0,1 

LINE(0,0) - （ 100, 100) , 1 

し INE(200,0) - （300,100),2,B 

し INE(400,0) - （500， 100) ,3,BF 



&HAAAA 
&HCCCC 



し INE(0, 150 ) - STEP(639,0) ,4, 
LINE!(0,160)-STEP(639,0),5, 
UNE(0, 170)-STEP(639,0) ,6, ,&H8888 
し I NE( 0 , 1 80 ) - STEP( 639 , 0 ) , 7 , ， &HF99F 
END 



LINE 




キーボードから 入力され る データ （255 文字 以内） を， 区切る ことなく 一括して 文 
字 変数に 代入し ます. 

LINE INPUT 〔〈プロンプト 文〉 ； 〕 く 文字 変数〉 




LINE INPUT 、、NAME〃 ； NA$ 



〈プロンプト 文〉 は， 入力 を 受ける 前に 画面に 表示され る メッセージです. クェ 

ッシ ヨン マーク （？） は 表示され ません. LINE INPUT 文に おいて は 入力され た 

(INPUT 文の 場合 は 区切り 記号で 区切られた データの 1 つ 1 つが 順次 抽出され， 

変数に 代入され ます）. 
LINE INPUT 文の 実行 は CTRL-C ま た は STOP キーの 入力 によって 中断す 

る ことができます. その 場合， STOP ON および STOP STOP の 状態に ない 限 
り プログラムの 実行 も 中断され， コマンド レベルに もどります. また， それまで 

入力した 文字 はすべ て 無効になります （文字 変数に は 値 は 代入され ません) • 



参照 ： LINE INPUT #， INPUT 



100 
110 
120 
130 



T " 〖闘 T 



m ;a$ 



LINE INPUT "LINE INPUT ： ？ 
PRINTtPRINT "INPUT ： ",A$ 
PRINT "LINE INPUT ： " f B$ 



• i 



UT ： ？ ASAD,ASDA,QE2UKJHH 

do from start 

UT ： ？ ASDASD23QD 

E INPUT ： ？ AS,DF,HJGJ, JHKJ,HJKJH 



LINE INPUT 
Ok 



ASDASD23QD 
AS,DF.HJGJ, JHKJ 



n p e 

u N R N 
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LINE 




CR コード ま での デー タ を 一括 し て 文字 変 



数に 読み込みます. 



LINE 




アイ ル 番号〉， 〈文字 変数〉 



ほ fU LINE INPUT n, A$ 



解 説 



〈ファイル 番号〉 は， OPEN 文に よって その ファイル を 入力 用と して オープンし 
たと きに 指定した 番号です. 〈文字 変数〉 は， 行 全体が 代入され る 文字 変数 名です. 



LINE INPUT # 文 は， シ一 




アイ ル より， キヤ リ ッジ リターンまでの， 



すべての 文字 を 読みます. も し 次に LINE INPUT # が あれば その キヤ リ ッジリ タ 
—ンと 続く ラインフィードの 組 を 飛ばして， 次の キヤ リ ッジ リターンに 至る まで 
のす ベての 文字 を 読みます. LINEINPUT# 文 は， データファイルの それぞれの 
行が いくつかの 欄に 分割され ている とき や， アスキー モードで セーブした プ ログ 
ラム を 他の プログラムで デ一 




参照 ： OPEN, INPUT # 
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LINE 




WAIT 



キーボードから データ を 入力し， 変数に 代入し ます. その 際， 入力 待ち時間 を 制 



限す る ことができます. 

LINE INPUT WAH" く 待ち時間〉， 〔く プロンプト 文〉 



〕 〈文字 変数〉 



LINE INPUT WAIT 50， "NO?, N0$ 



LINE INPUT WAIT は 時間 制限 付きの LINE INPUT です. したがって 

、ます. 詳し 




く は それぞれの 命令 を 参照して く ださい. 



参照 ： LINE INPUT, INPUT WAIT 



100 • 一一 タイフ • の 線 習 一一 

110 *ENTRY 

120 A$="" 

130 FOR 1=1 TO 3 

140 A$=A$+CHR$( INT(RND*26*65) ) 

150 NEXT I 

160 PRINT "Problem ： " ； A$ 

170 LINE INPUT WAIT 60. B$: GOTO 200 

180 PR〖NT:PRINT "Time out ！" 

190 GOTO *ENTRY 

200 IF A$=B$ THEN PRINT "Right !"： GOTO GENTRY 

210 PRINT "Wrong! " 

220 GOTO *ENTRY 



run 

Problem ： APZ 



Right ！ 

Problem 

ZK 

Wrong ！ 

Probl em 

WUX 

Right! 

Problem 

て 

Break in 
Ok 



ZKW 



WUX 



JDD 
170 
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LIST/LLIST 



^^^^^ b ■ ^^^^^^^^^^H ^^^^^^H 




メモリ 内に 



1) LIST 〔〈行 番号〉〕 〔一 く 行 番号〉〕 

2) LUST 〔く 行 番号〉〕 〔一 く 行 番号〉〕 



P 刷 します, 



「文 例 1 LIST 100-200 

LIST . 



プログラムの 内容 を， 書式 1) は 画面に， 書式 2) は プリンタに 出力し ます. 



LIST 



ンドは 実行し 終る と， いつでも コマンド レベルに 戻ります. 



〈行 番号〉 が 省略され た 場合 は， 最も 若い 行 番号の プログラム 行よ り リス トが始 
まります （リス トは プログラムの 終り， または ス ト ップ キーの 入力に よ り 終り ま 
す）. 最初の 行 番号の みが 指定され た 場合に は， その 指定され た 行 だけが リ ス ト さ 
れ ます. 最初の 行 番号と それに 続く マイナス 記号まで が 指定され た 場合 は， その 
行 番号に 始まり， それよりも 大きい 行 番号の 行 すべてが リスト されます. マ イナ 
ス 記号と それに 続く 2 番目の 行 番号 だけが 指定され た 場合に は， プログラムの 始 

めから その 行 番号までの 行が リ ス ト されます. 両方の 行 番号が マイナス 記号で つ 
ながれて 指定され た 場合に は， その 範囲の すべての 行が リス 卜されます. 



〈行 番号〉 に 




示して いる 現在の 行 を 指します （たとえば， 最後に 修正され た 行). 
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LOAD 



プログラム を メモリ に ロードし ます. 

LOAD く ファイル ディスクリプタ〉 〔， R〕 
LOAD 、、2 ： DEMO" 



LOAD 、、COM ： N82NN 7/ 



〈ファイル ディスク リ プタ〉 で 指定され た プログラム ファイル を メモリ 上に 口一 
ド します. ロード を 実行す ると， すべての 開いて いる ファイルが 閉じられ， 変数 
は その 値が 失われ ますが， R オプション をつ ける と， ファイル は 開いた ままで， 
プログラム を ロード 後， ただちに 実行 を 開始し ます. 

LOAD 文が 使用で き るフ アイ ル 機器 は ディスク ファイル， RS-232C コミュ 二 
ケ一シ ヨン ファイル， キーボード ファイルの 3 種です， 

注意 ： RS-232C コ ミ ュニケ 一シ ヨン ポ一 卜からの プログラム ロードの 場合， プロ 
グラムの 口一 ドが 完了しても， 自動的に LOAD コマンド は 終了し ません. 
強制 BREAK (STOP キ 一による） が 必要です. 
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LOAD? 



L 機 能 I カセットに 正しく プログラム 力 、'セーブで き たかを 確認し ます. 



1 



LOAD? く ファイル ディスクリプタ〉 
LOAD ？ 、、CAS2 ： TESr 



〈ファイル ディスク リ プタ〉 により 指定され た プログラム ファイルの 内容と， メ 
モリ 中の プログラムの 内容が 同一 であるか を 調べます. 両者が 異なって いる 場合 

に は 、、Bad〃 と 表示され ます. 

この コマンド は， 通常 SAVE の 直後に， 正しく セー ブが 行われた こ と を 確認す 
る 目的で 用います. また この コマンド は， カセット ファイルに 対しての み 有効で 
あ り ， 他の 装置 上の フ アイ ルが 指定され た 場合に は 通常の LOAD コマンドと 全く 
同じ 動作 をし ます. カセット ファイルが 指定され た 場合に は 比較 を 行う のみで 実 
際の ロード 動作 は 行いません から， メモリ 中の プログラム は 失な われません. 
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LOCATE 




|齊 




文 


例 



テキス 卜 画面の カーソルの 位置 を 制御し ます. 

LOCATE 〔く X>〕 〔， く Y>〕 〔， く カーソル スィッチ〉〕 
LOCATE 10， 10 
LOCATE ， ， 0 



1S3 



カーソル を テキス ト 画面の キャラクタ 座標 (X, Y) の 位置へ 移動し ます. 

〈X〉 は 水平 座標 を 表わし， 省略した 場合 は 0 とみな されます • 〈Y〉 は 垂直 座標 
を 表わし， 省略され た 場合 は 現在 力一 ソルが セッ ト されて いる 行と みなされます, 
これら は 共に 画面の 左上 を （0, 0) とする キャラクタ 座標に より 指定し ます • 

〈カーソル スィ ツチ〉 は 力一 ソルの 表示 状態 を 決める スィ ツチで， 0 だと 表示 さ 
れ なくなり， 1 で 表示され ます. 



注意 ： 水平 座標が 奇数 桁の 場合, 
こと はでき ません， 
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rx" 例 i 




こ データ を 設定し ます. 



：] LSET 〈文字 型 変数〉 = < 文字列〉 

RSET く 文字 型 変数〉 = < 文字列〉 
LSET A$ = 、、単価" 

RSET A$ = MKS$(I) 



Left SET, Right SET の 意味で FIELD 文に より， ランダム アクセス バッファ 

上に 割当てられた 文字 型 変数に 対し， 指定され た 文字列 を左づ め， あるいは 右づ 

めで 設定し ます • 格納す る データ は 文字 型 データで なければ ならず， 数値 データ 

は MKI$， MKS$, MKD$ の いずれ かにより 文字 形 データに 変換して おかな けれ 
ばな りません. 

〈文字列〉 の 文字 数が FIELD 文で 割り当てられた 長さ より 短い 場合， LSET で 
は 左詰め， RSET では 右詰めで フィールド を 満たします. また， 〈文字列〉 がフィ 

—ルドより 長い 場合 は， LSET, RSET とも 右側の 部分が 失われます. 

〈文字 型 変数〉 は， FIELD 文で あらかじめ 定義され ていなければ なりません. 定 
義 されて いない 変数 を 用いる と エラーが 発生し ます. 



参照 ： FIELD, PUT, GET 
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MERGE (DISK モード) 



I 書式 I MERGE く ファイル ディスクリプタ〉 
I 文例 I MERGE 、、2 : TEST" 

I 解説 I メモリ 上の プログラムと 〈ファイル ディスク リ プタ〉 により 指定した プログラム 

ファイル を 1 つに して， メモリ 上に 置きます • ここで， 指定され た ファイル はァ 
スキー セーブされ ていなければ なりません. そうでない 場合に は， エラ一 になり 
ます. ファイル 中の プログラムと， メモリ 中の プログラムに 同一 の 行 番号が あつ 
た 場合に は， フ アイ ル 中の 行で メ モ リ 中の 行 を 置き換えます. 
MERGE コマンド は 実行 を 終了す る と， 常に コマンド レベルに 戻り ます. 

参照 ： SAVE 
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MID$ 




^ 例 



文字列の 一部 を 置き換えます. 



書 式 I MID$ (く 文字列 1〉， く 式 1〉 〔， く 式 2>〕）= く 文字列 2> 



MID$ (A$, 3)= 、、ABC 



[ 




口 



く 文字列 1 〉 の 〈式 1 〉 番目の 文字から 〈式 2 〉 個の 文字 を， く 文字列 2 〉 の 最初から 
く 式 2 〉 個の 文字列で 置き換えます. 




〈式 2〉 が 省略され た 場合， 

合 は， く 文字列 2〉 のす ベての 文字と 置き 換わります. 

く 式 1〉+ 〈式 2〉— 1 の 値 力 《文字列 1〉 の 文字 数より 大き くな り， 指定した 文字 

列が あふれて しまう 場合 は， （〈文字列 1〉 の 文字 数） —〈式 1〉+ 1 の 値 を 〈式 2〉 と 
し， 〈文字列 2〉 の 残りの 部分 は 無視し ます. 

また 当然の ことながら， 〈式 1〉 の 値 はく 文字列 1〉 の 文字 数よ り 大き く てはいけ 

ないし， 0 以下であって もい けません. したがって 〈文字列 1〉 に ヌル ストリング 

を 指定す る こと はでき ません. 

参照 ： MID$ 関数 



サンプル 
プログラム 



100 DATA "My name is !!!!!!!< 

110 DATA Sato, Tanaka, Suzuki , Murakami 

120 READ A$ 

130 FOR 1=1 TO 4 

140 READ 画 $: 陽 $(A$, 12)= 画 $ 

150 PRINT A$ 

160 NEXT I 



run 

My name 
My name 
My name 
My 
Ok 



is Sato! ！ ！ ！ 
is Tanaka! ！ 
is Suzuki ！ ！ 
is Murakami 
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MON 



モニタ モードに 入ります. 

MON 
MON 

BASIC モードから モニタ モードに 制御 を 移行し ます • モニタ モ— ド について 
の 詳細 は ユーザーズ マニュアル を 参照して く ださ レ、 .CTRL-B で， もとの BASIC 

モードに もどります. 
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MOTOR 



カセットテープ レコーダの モータの 0N， OFF を 制御し ます, 
MOTOR 〔く スィッチ〉〕 



ま 例 1 MOTOR 1 



〈スィ ツチ〉 を 0 に すれば モータ は OFF となり， 0 以外の 値に すれば ON とな 



'場合, 



OFF の 状態な ら ば ON にし ま す. 



プロ 



ル 
ム 



100 MOTOR 1 

110 PRINT "Rewind and set the tape. 

120 INPUT "Are you ready (y/n) ： H f A$ 

130 IF し EFT$(A$, 1 )<>"y" THEN END 

140 PRINT 

150 MOTOR 0 

160 PRINT "Push PLAY button. " 

170 INPUT "Are you ready (y/n):", 

180 IF し EFT$(A$, 1 )<>"y" THEN END 

190 MOTOR 

200 END 



run 

Rewind and set the tape 
Are you ready (y/n) :y 

Push PLAY button. 

Are you ready (y/n) :y 
Ok 
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NAME (DISK モード) 



N 




ディスク ファイルの 名前 を 変更し ます. 

NAME く 旧 ファイル 名〉 AS く 新 ファイル 名〉 



ほ fU NAME NV SAMPLE ,/ AS "SAMPLE 1 



NAME 、、2 : DATA.BAS" AS 、、2 : DATAI々 



摩 観 ^^^^^^^1 ， J ^^^H 




〈旧 ファイル 名〉 で 表わされ ている ディスク 上の ファイル を 〈新 ファイル 名〉 に 

変更し ます. 

フ アイ ルの 指定 形式 は 次の 通 り です. 

〔ドライブ 番号：〕 ファイル 名 



ドライブ 番号が 省略され た 場合， ド 



す. 

〈旧 ファイル 名〉 と 〈新 ファイル 名〉 に 指定され る ドライブ 番号 は 同じで なければ 
なりません， 

なお フ アイ ル 名の 変更 を 行う ファイル は クローズ された 状態で なければ な り ま 
せん. 
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NEW 



メモリに ある プログラム を 抹消し， すべての 変数 をク リアし ます. 

NEW 
NEW 



NEW コマンド は プログラム を 抹消し， すべての 変数 をク リアし ます. NEW コ 
マンドの 実行が 終わる と， いつも コマンド レベルに 戻り ます. 

NEW コマンド は， 開かれて いる ファイルが ある 場合 は， それ を 自動的に すべて 
閉じます. 
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NEW ON 




8 


7 


6 


5 


4 


3 


2 





システム を 再起動し ます, 



S] NEW ON く 式〉 



NEW ON 1 





& します. 

〈式〉 の 値 は， ディ ッ プスィ ツチ SW2 の 各ビッ トに 対応して 意味付けられ てお 
り， 8 ビットで 値 を 指定し ます （ディップ スィッチ SW2 の 詳細に 関して は， ュ一 
ザ一 ズ マニュアル を 参照して ください). 

ディ ップ スィッチ SW2 の 機能 



く BASIC セレク トス イッチ〉 0 



く システム モー ド〉 



〈桁 数〉 



く 行数〉 



0 



0 



0 



く メモリ スィッチの 初期化〉 0 



： N88-BASIC 

： N-BASIC 

： BASIC モー ド 

： ターミナル モード 

： I 行 80 桁 
： I 行 40 桁 
： I 画面 25 行 
： I 画面 20 行 

： システム 既定 fit で 初期化. 

： メモリ スィッチ を 有効に する. 



スィ ツチ 番号 1 は ディ ッ プスィ ツチで は 意味が あり ません が， NEW ON での 
指定 は BASIC の 選択 を 指定し ます. N-BASIC を 指定した 場合 は， ディスク 装 
に N-BASIC (86) の システム ディスク を 装着して おく 必要が あ ります. 




ミ 主意： スィ ツチ 番号 5〜8 は NEW ON コマンド では 意味 を 持ちません. 



BASIC セレクト スィッチ 

システム モ I ド 

桁 数 

行数 

メモリ スィッチの 初期化 

予約 
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I ^ング や ムレ I new on 0 N 88 - BASIC が 再起動 されます. その 際の モード は 次のと おりです. 

• BASIC モード 
• 1 行 40 桁 
• 1 画面 20 行 

new on I N-BASIC が 起動され ます. その 際の モード は 次のと おりです. 

• 1 行 40 桁 
• 1 画面 20 行 

new on 2 N 88 -BASIC が ターミナル モードで 起動され ます. その 際の モード 

は 次のと おりです. 

• 1 行 40 桁 
• 1 画面 20 行 
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ON COM GOSUB 



1 機能 I 通信 回線からの 割り込み 力 《 発生した 時， 分岐す る 処理 ルーチンの 開始 行 を 定義し 

ます. 



文 例 



ON COM 〔(く 回線 番号〉)〕 GOSUB く 行 番号〉 

ON COM GOSUB 1000 

ON COM (2) GOSUB *RECV 



0 



指定した 通信 回線から RS-232C のコ ミ ュニケ 一シ ヨン ポートに 入力 割り込み 
があった 時に 分岐す る 処理 ルーチンの 開始 行 番号 を 定義し ます • 
〈回線 番号〉 




1 ： RS-232C 第 1 回線 



2 ： RS-232C 第 2 



3 ： RS- 232C 第 3 回線 




専用の 拡張 ィ ン タフ エース ボ一 ドが 必要です 



〈回線 番号〉 は 省略す る ことができます. 省略され た 場合， 第 1 回線が 指定され 

たものと みなします. 
〈行 番号〉 と は 分岐させる 処理 ルーチンの 開始 行 番号です. 

処理 ル一 チンからの 復帰 は， 一般の サブルーチンの 場合と 同じで RETURN 命 
令に よって 行います. 単に RETURN とした 時 は， 中断した 所から 再開し， 後ろ 
に 行 番号 を 指定した 時 は， その 行から 再開し ます • 

注意： この 命令に よって 割り込み 処理 ル一 チンに 分岐させる に は， 割り込みが 発 

ON COM GOSUB は， RS-232C コ ミ ュニケ 一ショ ンポ一 ト を OPEN した 
後 実行 されな ければ 有効 となりません. 



参照 ： COM ON/OFF/STOP, OPEN 



プロ 



コ グラム 



100 OPEN M COM:N82NN M AS 1 

110 ON COM GOSUB *RECIEVE 

120 con ON 

130 rRINT TIML:$:G0T0 130 

140 *RECIEVE 

150 IF し ()C(1)<>1) THEN PRINT 

160 RETURN 



1NPUT$(10C( 1 ) ,m ) 
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ON ERROR GOTO 



文 例 



エラー 卜 ラ ップを 可能に し， エラー 処理 ルーチンの 開始 行 を 定義 します. 



[M ^] ON ERROR GOTO 〈行 番号〉 



ON ERROR GOTO 1000 



エラ 一トラ ッ プ 機能が 可能に なると， エラ一 が 検出 さ れた時 指定 さ れた エラ一 
処理 ルーチンへ プログラムの 制御が 移り ます. も し 〈行 番号〉 の 行が 存在し なけれ 
ば， 、、！ Jndefined line number" エラーが 起こります. エラ一 トラ ッ プ 機能 を 禁止 



する に は， 




い • その後の エラ一 は エラ一 



メッセージ を 表示し， プログラムの 実行 は 停止し ます. また， エラ一 処理 ル一チ 
ンに ON ERROR GOTO 0 の 文が ある 場合に は， BASIC は エラ一 トラップの 原 



となった エラーの エラ一 メ ッ セージ を 表示し， 




実行 を 停止し ます. 



エラ一 処理 ルーチン 中で エラ一 回復 処理 を 行わない エラ一 を ト ラ ップ した 場合 
に は， ON ERROR GOTO 0 を 実行す る こと をお 勧めし ます. 

注意： エラ一 処理 サブルーチンが 実行中に エラ一 が 起きた 場合に は， それに 対す 
る エラ 一メッセージが 表示され， 実行 は 停止し ます. エラ一 処理 サブ ルー 

チンの 中で は エラ一 卜 ラ ップは 起こ り ません. 
参照 ： RESUME 



プ 口 グラム， 



100 - X の Y 乗 を 求める， 
110 ON ERROR GOTO 
120 *START: INPUT "X ： ":X: INPUT "Y 



M 



； Y 



130 IF X=0 THEN ERROR 250 

140 Z=X"Y:PRINT •• Y M :PRINT" X =";Z 

150 GOTO 120 

160 *ERR0RMES 

170 IF ERR=250 THEN PRINT "定義され ません • •• 

180 IF ERR=6 THEN PRINT "オークい 一 フローです 

190 RESUME *START 



ft 



run 

X ： ？ 
Y ： ？ 
Y 

X = 



2 

10 

1024 



o o 

o o 



す 

で 

フ 

1 



ん 

せ 



2 



n 



つれ い 

？? ク？？ さ？ 



眷 者 



a 

e 



X 



Y 才 X Y 定 X B o 
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ON HELP GOSUB 



へ 



ル プキ一 に よ る 割 り 込み ルーチンの 開始 行 を 定義 します. 



ON HELP GOSUB 〈行 番号〉 
ON HELP GOSUB 1000 



へ 



を 押した 時に 分岐す る 処理 ル 



おか 



KEY GOSUB だと 考える ことができます. したがって， そ 



の 使い方 も 同じです. 
処理 ル一 チンからの 復帰 は， 一般の サブルーチンの 場合と 同じで RETURN 命 

令に よって 行います. 単に RETURN とした 時 は 中断した 所から 再開し， 後ろに 
く 行 番号〉 を 指定した 時 は， その 行から 再開し ます .INPUT 文 実行中に 割り込ん 力 



ゝ、 
， 



場合 は， 単に RETURN で 復帰させる と INPUT 文の 次の 文から 実行 を 再開し ま 

すから， 行 番号 を 指定す るか， プログラムで 適切な 処置 をし なければ なり ません' 
本来 この 命令 は， 給与 計算な どの アプリ ケ一シ ヨン プログラム を 作成した 際， 

プログラマ一 が， その プログラムの 使い方， 入力の 仕方な ど を 説明した インスト 
ラ クシ ヨン ルーチン を 定義して おき， ユーザ一 がその プログラム 実行中に， 次 

に 何 をして よいの かわから なくなった 時に ヘルプ キ —による 割り込みで 指示 を受 
ける， といった ような 用途の ために 用意され ている ものです • 

注意： この 命令に よって 割り込み 処理 ル一 チンに 分岐させる に は， 割り込みが あ 



つ 



た 時 HELP ON の 状態で なければ なりません • 



0 



参照 ： HELP ON/OFF/STOP, ON KEY GOSUB 
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1^ 



ル 
ム 



100 • —— HELP キー を 使った メッセ一 シ* フ* リント —— 
ON HELP GOSUB ^MESSAGE 
HE し P ON 

FOR 1=1 TO 10 
INPUT N 

PRINT "N -"JN,"N«N = M ； N*N 
NEXT I 

HELP OFF: END 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 



^MESSAGE 
HELP OFF 
PRINT 

230 PRINT "数字 を 入力して ください. 
240 PRINT "その 2 乗 を 計算し ます. 
250 HELP ON 
260 RETURN 140 



run 
？ ABC 

？ Redo from start 
？ 

数字 を 入力して ください • 
その 2 秉を 計算し ます. 

？ 10 
N - 10 
？ 12.45 
N = 12.45 
？ 10,23 

？ Redo from start 
？ 



N*N = 100 
N#N = 155.003 



さす 

だま 

く し 

て算 

し * S 

力 を 1 

入秉 ^ 

を 2 k 

字の S 

数 そ？^ g 
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ON ••• GOSU B/ON ••• GOTO 




指定 さ れた いずれ かの 行に 分岐 します. 

U ON く 式〉 GOSUB 〈行 番号〉 〔， く 行 番号〉 •••〕 
ON く 式〉 GOTO く 行 番号〉 〔， く 行 番号〉 •••〕 



し 文 mA ON A GOSUB 100， 200， 300， 400 



ON A GOTO 100， 200， 300， 400 




を 決定し ます. 〈行 番号〉 
の 並び は 1 から 始まる 数に 対応し ます. たとえば， 〈式〉 の 値が 3 であったなら， 




ON〜GOSUB 文で は， 並びの 各行 番号 は サブルーチンの 最初の 行の 行 番号で 
なければ なり ません， 

〈式〉 の 値が 負に なった 場合に は，、、 Illegal f unction ca『 エラーが 起こ り ます 力、 
値が 0 または 並びの 行 番号の 個数より 大き く なった 場合に は， 次の 行へ プロ グラ 
ムの 制御が 移り， エラ一 は 起こりません. 



サン 7 ル | 
プログラム 



100 GENTRY 

1 10 INPUT M N= M :N 

120 SG=SGN(N)+1 

130 ON SG GOTO *ZlZKO,*»P し US 

140 PRINT "MINUS! "： GOTO *ENTRY 

150 *ZERO:PRINT "ZERO リ •： GOTO *ENTRY 

160 »PLUS: PRINT "PLUS! " 

170 GOTO *ENTRY 



run 

N=? 12 
PIUS! 
N=? 45 
P し US! 
N=? 0 
ZERO! 
N=? -32 
MINUS! 
N=? -1 .25 



N = ? 

Break in 
Ok 
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ON KEY GOSUB 



I 機 能 I ファンクションキー による 割り込み ルーチンの 開始 行 を 定義し ます. 

I 書式 I ON KEY GOSUB く 行 番号〉 〔， く 行 番号〉 •••〕 
I 文 例 I ON KEY GOSUB 100， 200， 300， 400 

I 解説 I ファンクション キ 一を 押した 時に 分岐す る 処理 ルーチンの 開始 行 を 定義し ま 

す. 

この 命令 は， 割り込み 力 《発生した 時 （キーが 押された 時） にどの 処理 ルーチンに 

飛ぶ か を 定義す る だけの もので あり， この 命令が 実行 されても 割り込みが 起こる 
こと はあり ません. 割り込みが 発生す るの は， あく まで 何ら かの 外的 要因 （この 場 
合， キーが 押された こと） があった 時です. 

〈行 番号〉 と は， 割り込みが 発生した 時に 分岐させる 処理 ルーチンの 開始 行 番号 
で， この 並びの 順序 は， ファンクションキーの キ一 番号と 1 対 1 に 対応して いな 
ければ な り ません （たとえば， ファンクションキー 1 と ファンクション キ一 3 をキ 
—割り込みの 対象と したい 場合， ON KEY GOSUB 100， ，300 と 指定し ます）. PC 
-9800 シ リ 一ズ パーソナルコンピュータが サボ一 卜して いる ファンクションキー 
は 全部で 10 番 まであります から， 最大 10 個の 〈行 番号〉 を 並べて 書く こ とがで きま 

す • もちろ ん 実際の 行 番号の 代わ りに ラベル 名 を 使う こと もで きます. 

KEY ON 状態に なって いる ファンクションキーが 押されても， 対応す る 割り込 
み ルーチンが ON KEY GOSUB 命令で 定義され ていない 場合， 割り込み は 発生 
しません. たとえば， 

10 ON KEY GOSUB 100，， 200 

20 KEY (2) ON 

の 場合， ファンクションキー 2 は KEY ON 状態に なって いますが， 割り込み ルー 
チンの 定義が なされて いないので 割り込み は 発生し ません. 

処理 ルーチンからの 復帰 は， 一般に サブルーチンの 場合と 同じで RETURN 命 
令に よって 行います. 単に RETURN とした 時 は， 中断した 所から 再開し， 後ろ 
に 行 番号 を 指定した 時 は， その 行から 再開し ます. 

注意： この 命令に よって 割り込み 処理 ルーチンに 分岐させる に は， 割り込みが 発 
生した 時， KEY ON の 状態で なければ なりません. 

参照 ： KEY ON/OFFZSTOP 
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-- s l n , し' os - - 

ON KEY GOSUB *S I NSUB , wCOSSUB , »ENDSUB 

FOR 〖=1 TO 4 
KEY(I )0N 

NEXT I 

DEG=0:PI=3. 14159 
*START 

TH=DEG/180*PI 

PRINT "TH = M ； DEG ； 

IF F し AG-1 THEN *COSC 

PRINT TAB( 12) ； "SIN(TH) = " ； SI N ( TH ) ： GOTO *EXIT1 
*COSC : PR 〖 NT TAB (35)1 "COS (TH) = H ; COS ( TH ) 
*EXIT1 :DEG=DEG+10 
GOTO *START 

• -- key interrupt routine -- 

»S1NSIJB:F し AG=0:RETURN 
*COSSUB:F し AG=1 : RETURN 
*ENDSUB:KEY OFF: END 



I "プログラム 



121 



SIN(TH) 
SIN(TH) 



SIN(TH) 



0 

.173648 

,34202 

.5 

.642787 
.766044 
.866025 
.939692 



.866026 
•766046 
.642789 
.500002 
.342022 
.173651 



COS(TH)= 
C0S(TH)= 
C0S(TH)= 
COS(TH)= 



. 173649 
1 ， 12352E 
， 173647 
•342019 



-06 



oooooooooooooooooc 

olo^ 345678901234567 

111111111122222222 



oooooooo 

000000000012 34567 

olo^ 34 5 678911111111 

r II II II II II = II = = I 曙 II = = II II s z 

r TTTTTTTTTTTTTTTTTTO 



ON PEN GOSUB 



文 例 



ライ 卜 ペンに よる 割り込み 処理 ルーチンの 開始 行 を 定義し ます, 

ON PEN GOSUB 〈行 番号〉 
ON PEN GOSUB 氺 PENTEST 



ライ ト ペンが 押されて 光 を 感じた 時， 分岐す る 処理 ルーチンの 開始 行 を 定義し 



ます. 



この 命令に よって 処理 ル一 チンに 分岐させる に は， PEN ON の 状態で なければ 



なりません. 



の 命令 は 対象 力 



ト ペンで ある こと を 除けば， 他の 割り込み 定義 命令 



(KEY, COM, HELP, STOP) と 同様です. 

参照 ： ON KEY GOSUB etc,, PEN ONZOFFZSTOP 



サンプル 
プログラム 



100 CO し OR 0,7:C し S 2 

110 ON PEN GOSUB «PENSUB 

120 PEN ON 

130 GOTO 130 

140 '-- PEN ROUTINE -- 

150 *PENSUB ： PEN OFF 

160 PRINT "trigger =";PEN(0) 

170 FOR 1=1 TO 3000： NEXT 

180 PEN ON ： RETURN 



M 



x =":PEN(l),"y =";PEN(2) 



run 

trigger = 0 
trigger = 0 
trigger = 0 
trigger = 0 
trigger = 0 
trigger = 0 
trigger = 0 

Break in 130 
Ok 



1116 5 5 5 



y y y y y y y 



9 9 3 8 9 9 8 

3 2 2 2 5 5 5 

一一 I 一 II n II II K 

X X X X X X X 
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ON STOP GOSUB 



STOP キーに よ る 割 り 込み 処理 ルーチンの 開始 行 を 定義 します. 



書式 I ON STOP GOSUB く 行 番号〉 



文 例 



ON STOP GOSUB 100 



STOP キ一 を 押した 時に， 割り込み によって 分岐す るル一 チンの 開始 行 を 定義 



します. 




—を 使って いる こ と を 除けば， フ ァ 



ン クシ ヨン キーに よる 割り込みと 同じです から， ON KEY GOSUB の 項 を 参照し 
てくだ さい. 

この 命令 は アプリ ケ ーショ ン プログラムの 実行中に， ユーザ一 が 誤って STOP 

キー を 押してし まい， プログラムの 実行が 中断され てし まう の を 防止す るた めの 
ものです. したがって 不用意に この 命令 を 実行して しまう と 本来の STOP キ一 及 
び CTRL- C の 機能 は 全 く 失われ， プログラム を 中断す る ことができ なくなって 
しまいます， 動作 ミスの ない プログラムに してから 使用して ください • 

参照 ： ON KEY GOSUB, STOP ONZOFFZSTOP 



^ロノみ よ 



100 ON STOP GOSUB *MASK 

1 1 0 STOP ON 

120 F$="tt#tt 

130 PRINT "Degree" ;TAB( 12) ； "SI n" ;TAB( 27 ) 

140 FOR 1=0 TO 180 STEP 20 
150 TH=I/180*3- 14159 

160 PRINT USING F$; I :SIN(TH) ;COS(TH) 

170 NEXT I: STOP OFF: END 

180 *MASK: RETURN 



it 



Cos 



fli 



run 










Degree 




Sin 




Cos 


0 


0， 


000000E+00 


1 .000000E+00 


20 


3. 


420200E- 


01 


9.396930E - 01 


40 


6. 


427870E - 


01 


7.660450E-01 


60 


8. 


660250E- 


01 


5.000010E-01 


80 


9. 


848070E - 


01 


1 .736490E-01 


100 


9. 


848080E- 


01 


- 1 .736470E - 01 


120 


8. 


660260E- 


01 


-4.999990E-01 


140 


6. 


427890E- 


01 


- 7.660430E - 01 


160 


3. 


420220E- 


01 


-9.396920E-01 


180 


2. 


621550E- 


06 


-1.000000E+00 


Ok 
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ON TIME$ GOSUB 



機 能 I リアルタイム タイマの 割り込み 発生 時刻と， その 時 分岐す る 処理 ルーチンの 開始 



行 を 定義し ます. 

ON TIME$ = 、、hh ： mm ： ss y/ GOSUB 〈行 番号〉 



[文 @JJ ON TIME$ = 、、07 ： 30 ： 00〃 GOSUB * MORNINGCALL 



M 説 




割り込み 時刻の 設定の 仕方 は TIME$ の 場合と 同様です. ただし， ここで 設定す 
る 時刻 はリ アル タイム タイマに 影響 を 与えません. また この 命令で 制御で きる 分 
き は 2 秒です から， 場合によって は士 1 秒 程度の 誤差が でる ことがあり ます. 
く 行 番号〉 は 割り込み によって 分岐す る 処理 ルーチンの 開始 行です. もちろん ラ 
ベル 名 を 使う こ ともで き ます. 

ON TIMES GOSUB は 実行され た 時点で， 設定され た 時刻から 現在の 時刻 を 
引き算して 割り込み 時刻 を 決定し ます. したがって， もし 現在の 時刻 を TIMES 文 
で 変更して から 割り込み 時刻 を 設定す る 場合 は， TIMES 文 は 必ず ON TIMES 
GOSUB 文の 直前で 実行し なければ なりません. 

また この 命令に よって 割り込み 処理 ル一 チンに 分岐させる に は， TIME$ ON 
の 状態で なければ なりません. 



参照 ： TIME$ ON/OFF/STOP, ON KEY GOSUB, TIME$ 



芗 ロング ％之 100 0N TIME$= II 07:30:00" GOSUB *M0RNING 

110 TIME$ ON 

120 LOCATE 30, 10:PRINT TIME$:G0T0 120 

130 • -- Morning call routine -- 

140 ^MORNING 

150 FOR 1=1 TO 10 

160 BEEP: PR I NT "Good Morning ！ ！ M 

170 FOR J=0 TO 300： NEXT J 

180 NEXT I :END 
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ファイル を 開きます. 

OPEN く ファイル ディスクリプタ〉 〔FOR 〈モード〉〕 AS 〔#〕 く ファイル 番号〉 
OPEN 、、2 ： DATA1" AS # 1 
OPEN 、、C0M1 ： N82NN〃 AS #1 

〈ファイル ディスクリプタ〉 で 指定され た ファイル を 指定され た 〈ファイル 番号〉 
で オープン します. 以後， オープン された ファイルへの 入出力 は， 〈ファイル 番号〉 

を 指示す る ことにより 行います. 

くモ一 ド〉 は ファイルへの アクセス 方法 を 指定し ます. モ一 ドには 次の 4 種類が 
あります. 

INPUT 既存の ファイルから 入力 を 行う こ と を 指示し ます. 
OUTPUT 新しく ファイル を 作り， 出力 を 行う こと を 指示し ます. 
APPEND 既存の ファイルの 終りから 追加 を 行う こと を 指示し ます. 
省略した 時 FOR 節が 省略され る と， ディスク ファイルの 場合 ランダム ァクセ 

スを 行う こと を 指示し ます. また， RS-232C コミュニケーション 

ファイルの 場合， 一般に 省略し ます. 

INPUT, APPEND モード では， 指定 さ れた フ アイ ルが 存在 しないと， 、、File not 
founcT の エラーと なります. OUTPUT モードで は， 常に 指定され た 名前の ファ 
ィルを 新しく 作り， 同一 名の ファイル があった 場合に は その ファイル は 削除され 
ます. ランダム アクセスで ファイルが 存在し ない 場合に は 新たに 作られます. 

〈ファイル 番号〉 は 1 から 13 までの 値 を 用いる ことができます 力、 BASIC を 使 
い 始める 時に 宣言した ファイルの 数 を 超えて はなり ません. また， 既に オープン 
されて いる ファイルが 利用して いる 番号 を 用いる こ と はでき ません. 

OPEN は 以後の 入出力の 際に 用いる バッファ 領域 を 確保し， ファイルが 閉じら 
れ るまでの 間， その バッファ は 指定した ファイルへの 入出力 操作 専用に 用いられ 
ます （FIELD 文 参照). 

RS-232C コミュニケーション ファイル を オープン する 際に は， フ アイ ル名 
COM 〈回線 番号〉 につ づけて， パリティ， ビット 数等 を 指定す る 必要が あります. 

指定 形式 は 次のと おりです. 
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vv COM 〔く 回線 番号〉〕： 〔〈パリティ〉 〔〈ビット〉 〔く ストップビット〉 

〔く xon スィッチ〉 〔く s パラメータ〉〕〕〕〕 r 

〈パリティ〉 は E, 0， N で 表わし， それぞれ 偶数 パリティ， 奇数 パリティ， ノヽ。 リ 

ティ 無し を 意味し ますに 
〈ビッ 卜〉 は 1 文字 を 表わす のに 用いる ビッ 卜 数で， 7 または 8 で 指定し ます. 

せん. また 8 を 指定した 場合 〈パリティ〉 は N でなければ なりません. 

〈ストップビット〉 は ストップビット 数 を 決定し， 1， 2, 3 で 指定し ます. 1 
は 1 ビット， 2 は 1.5 ビット， 3 は 2 ビット を 意味し ます. 

ツチと して X が 指定され る と X0NZX0FF 制御 を います. N が 指定され た 場 
合に はこ の 制御 は 行われ ま せ ん. 

く S パラメ一 タ〉 は 〈ビッ ト〉 に 7 を 指定した 時に， キャラクタ コード 128 以上の 文 

字 （カナ 文字な ど） の 入出力が できなくなる の を 補助す る パラメータです. 指定 は 
S または N で 行い， S を 指定した 時 入出力 可能で， N を 指定した 時 は 入出力 不可 
能になります. 

OPEN 文で 扱う ことので きる フ アイ ル 機器 は 次のと お り です. 



ファイル 


使用で きも モード 


ディスク ファイル （ ドライブ 眷# ： ) 


INPUT, OUTPUT, APPEND, 省略 


RS-232C コミュニケーション ファイル (COM ： ) 


雀 略 


キーボード ファイル (KYBD: ) 


INPUT 


スク リーン ファイル （SCRN ： ) 


OUTPUT 


プリ ンタ ファイル （LPT ： ) 


OUTPUT 


カセット ファイル （CAS ： ) 


INPUT. OUTPUT 



OPTION BASE 



配列の 添字の 下限 を 宣言し ます. 



OPTION BASE 



0 
1 



OPTION BASE 1 



□ 



□ 



配列の 添字の 下限 を 0 または 1 にす る こと を 宣言し ます. 通常， この 宣言が 用 
いられない 場合に は， 下限 は 0 です が， OPTION BASE 1 を 実行す ると 下限 は 1 

になり， 以後， 配列の 添字と して 0 が 用いられ ると， "Subscript out of range ク 
エラ一 が 起こる ようになります. 



ず 



の 宣言 は， プログラム 中で 配列 変数が 宣言， または 引用され た 後に 行う こと 



はでき ません. また一 度 宣言す ると， 再 宣言に よって 下限 を 変更す る こと はでき 
ません. このよう な 場合に は "Duplicate Definition か エラ一 になります. 

OPTION BASE は 一度 宣言す る と， RUN あるいは CLEAR を 行う まで は， 解 

除， 変更す る ことができません. 



1^ 



ル 
ム 



】00 
1 10 
120 
130 
140 
150 
160 



OPTION BASE 0 
DIM A ( 1 ) 
PRINT M A(0) = 



it 



A(0) , "A( 1 ) 



) 



C し EAR: OPT I ON BASE 

に - error occur - 
PRINT M A(0) 



1 



it 



M 



) 



run 



) = 0 



) 



0 



Subscript out of range in 160 
Ok 



127 



OUT 



機 


能 


畲 


式 




例 



コンピュータの 出力 ポートに 1 バイ 卜の データ を 送出し ます, 

OUT く ポー ト 番号〉， 〈式〉 
OUT 64， 32 




〈ポート 番号〉 は ポートの 番号， そして 〈式〉 が 出力す る データです. 〈ポー ト 番号〉 
は 0 〜32767 ま での 整数で 指定 します. 〈式〉 は 0 力、 ら 255 ま での 整数で 指定 します. 



ン ブール 

プ a グラ^ _ 



100 



120 
130 

140 

150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



260 
270 



DEFINT A-Z 

SCREEN 0,0:CLS 3:DIM PD(3):F0R 1=0 TO 3 ： READ PD(I):NEXT 
FOR X=80 TO 639 STEP 80 * 
C=X/80 

CIRCLE (X, 100) ,50, C 
PAINT (X,100),C,C 
NEXT X 

FOR Cl=l TO 24 
FOR C2=0 TO 3 
C=( (CI+C2) MOD 8)*16+(Cl+C2+4) MOD 8 
• OUT PD(C2),16*I+J は 
' CO し OR=(C2, 1 ) :CO し OR=(C2+4, J) と 同じ 
OUT PD(C2),C 
NEXT C2 

FOR W=0 TO 1000 
NEXT W 
NEXT CI 

DATA &HAE,&HAA,&HAC,&HA8 
END 
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1 機 能 i 指定され た 境界 色で 囲まれた 領域 を， 指定され た 色で 塗ります. 



3 PAINT 



文 例 



(Wx, Wy) 
STEP(x， y) 



〔， く 領域 色〉 〔， 〈境界 色〉〕〕 



PAINT (一 50, 120), 3, 4 



P 




(Wx, Wy) により 指定され た ワールド 
指定され た 〈領域 色〉 で 塗りつぶします. STEP を 付ける と 相対 座標と なります. 

〈領域 色〉， 〈境界 色〉 はと もに パレット 番号で 指定 を 行います. く 領域 色〉 が 省略 
された 場合に は， COLOR 文で 指定され た フォアグラウンド カラーが 用いられ ま 

す. 〈境界 色〉 が 省略され た 場合に はく 領域 色〉 の 指定と 同じ パレ ッ ト 番号が 〈境界 
色〉 として 用いられます. 

(Wx， Wy) は 塗り 始める 座標 を 指定し ます. もし この 点が， 既に 指定され た 境 
界 色と 同じ 色であった 場合に は， PAINT は 何の 画面 操作 も 行いません. PAINT 
は ビュー ポート 内での み 働きます ので， ビュー ポートの 境界 は PAINT 動作の 境 
界 とみな されます • また， （Wx, Wy) が ウィンドウの 外に ある 場合に は， 対応す 
るスク リー ン 座標 は ビュー ポ一ト 外になる ために， Illegal function call" エラ一 
となります. 



参照 ： VIEW, 〔 1 〕 COLOR 



化 1 100 '― normal paint -- 

」 110 SCREEN 0,0 

120 CIS 3 

130 FOR I -1 TO 50 

140 X=RND*639 

150 Y=RND*199 

160 R=RND»80 

170 C=INT(RND*7+1 ) 

180 CIRC し E(X,Y) ,R,(: 

190 rAINT(X.Y) t C 

200 NEXT I 
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〔2〕 




ほ 例 




指定され た 境界 色で 囲まれた 領域 を， 指定され た タイル パターン めます, 



(Wx， Wy) 
STEP(x, y) 



PAINT (255， 120)， TILE$， 4 




〔， 〈境界 色〉〕 



(Wx， Wy) により 指定され た ワールド 座標 を 含む 〈境界 色〉 で 囲まれた 領域 を， 
く タイ ルス ト リ ング〉 により 指定され た 模様 （タイ ノレ） で 埋めます. STEP を 付ける 

と 相対 座標に よる 指定と なります. 
この 動作 は タイ リ ングと 呼ばれ, 模様の ついた タイル を 領域 内に 敷きつ めたり， 

中間色で 領域 内 を 塗った よ う な 効果 を 出す こ と がで きます. 

〈タイ ルス トリ ング〉 は， タ イリ ングに 用いられる 基本 タイルの 模様と 大きさ を 

決定す る 文字列です. タイルの 大きさ は， 横 方向 は 8 ドット 分と 決められて いま 
す 力 乙 縦 方向の 長さ は， タイル ストリングの 長さで 指定す る ことができます • 縦 
方向が n ドットの タイル を 指定す るた めに は， 白黒 モードで n 文字， カラ一 モ一 
ドで 3 x n 文字 (4096 色 中 • 16 色 モードの 場合 は 4x n 文字) の 長さ を 必要と しま 

す. 

タイルの 模様 は， 〈タイ ルス 卜 リ ング〉 に 対応す る キャラクタ コードの 2 進数 表 
現 （ビッ ト パターン） により 表現され ます. 〈タイ ルス ト リ ング〉 の 指定の 方法 は 
カラ一 モードと 白黒 モードと で 異なります. 白黒 モードで は， 文字 を 横 8 ビット 

の 線に 対応 させて 指定し ます. 文字コード は， 8 ドットの うちの どの ドット をセ 
ット し， どの ドット を リセット にす るか を 決定し， 2 進数 表現で 1 の ビットに 対 
応 する ドッ ト はセッ 卜， 0 に 対応す る ドッ 卜 は リセ ッ ト されます. 〈タイ ルス ト リ 
ング〉 が n 文字の 長さで あれば， その スト リ ングの 表す 模様 は， このよう にして 決 
定 される 横 8 ドッ 卜の パターン を 縦に n 文字の パターン 分 だけ 並べた ものに な 
ります， 従って タイル ストリング を 構成す る 文字が 全て 同じ 文字で あったり， 1 
文字 だけであった 場合に は， 縦線 模様になります. 
例） CHR$(&HAA)+CHR$(&H55) 
16 進数 表現 




&HAA 
&H55 



10101010 
01010101 



ド ッ ト パターン 

o 參 〇 参 〇 • 〇 



〇 • 〇 參 〇 • 〇 



上例 は 2 文字から なる 簡単な タイ ルス ト リ ングの 例です. この 2 文字 は 互いに 
1 である ビッ ト と 0 である ビッ ト がまった く 逆にな つてい ます. この パターン を 
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クリーンの ドットが 大変 細かいた めに， その 模様 は ほとんど わからず， 灰色の よ 

うに 見える でしよう. 
カラ —モードで も 白黒 モードと 同じ様に， 模様 は タイ ルス ト リ ングに 対応す る 

ビッ ト パターン によって 決定され ます 力、 白黒 モードと 異なり 3 文字 (4096 色 中 • 
16 色 モードの 場合 は 4 文字） で 横 8 ドッ トが 構成され ます .ス ト リ ング 中の 文字 は 



ド ッ ト に ど 



、ノ \ e 



- ッ 卜番 り-を 対^ させる か を 決定し ます. ス 卜 リ ングの 長さに 余 
りが あった 場合に は 無視され ますが， 3 文字 （あるいは 4 文字） に 満たない 場合に 
は 、、： Illegal function call" エラ一 となります. 

例） 8 色 中 • 8 色モ一 ド あるいは 4096 色 中 • 8 色 モー ドの 場合 




^\ ^ト ッ 卜 


12345678 


&HAA 

&H55 

&H00 


10 10 10 10 
0 10 10 10 1 
00000000 


対応す る 
パ レツ ト 番号 


12 12 12 12 



8 ドッ 卜に パ レツ ト 番号 1 とパ レツ ト 番号 2 を 交互に 指定し ます. パ 
レツ トが 初期 状態で あれば 青と 赤が 交互に 出る 模様になります • しかし 
ドッ 卜が 細かいた めに， 全体として 紫色の ようにみ えます • 

例） 4096 色 中 • 16 色 モードの 場合 




r^^^K ッ ト] 


1 


2 


3 


4 


5 


6 


7 


8 


&HCC 


1 


1 


0 


0 


1 


1 


0 


0 


&H8F 


1 


0 


0 


0 


1 


1 


1 


1 


&HD1 


1 


1 


0 


1 


0 


0 


0 


1 


&H23 


0 


0 


1 


0 


0 


0 


1 


1 


対応す る 
パ レツ ト 番号 


7 


5 


8 


4 


3 


3 


10 


14 



注意： すでに タイ リ ング されて いる 領域 を 異なる パターンで タイ リ ング しょう と 

すると， 時間が かかったり， スタック を 消費す るた めに、、 Out of memory ッ 
エラ一 になった りする ことがあり ます. 
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120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 



tiling paint (B/W mode) 一一 



DATA 00, 7F, 63, 55, 49, 55, 63, 7F 



• line 


1 


= 00000000 




&h00 


f line 


2 


= 01111111 




&h7f 


f line 


3 


= 01 10001 1 




&h63 


' line 


4 


= 01010101 




&h55 


• 1 i ne 


5 


= 01001001 




&h49 


* 1 ine 


4 


= 01010101 




&h55 


• line 


3 


= 01 10001 1 


^™ 


&h63 


• line 


2 


= 01111111 




&h7f 


CO し OR 


,0: 


SCREEN 1 ， 0 


,1 


•7:CLS 3 



FOR 1=1 TO 8 
READ A$:TP=VA しに &H"+A$) 
TI し E$=TI し E$+CHR$(TP) 

NEXT I 

CIRC し E(320, 100) ,80,7 
PAINT(320,100),TILE$，7 
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ライトペン による 割り込みの 許可， 禁止， 停止 を 制御し ます • 

1) PEN ON 

2) PEN OFF 

3) PEN STOP 
PEN ON 

ライ ト ペンが 押された 時に 起こる 割り込み を 許可 （ON) する か， 禁止 （OFF) 
する 力、 停止 （STOP) する か を 設定し ます. 

書式 1) 割り込み を 許可し ます. 以後 ライ ト ペン を 押す ごとに 割り込み を 発生し， 

ON PEN GOSUB 文で 定義され ている 処理 ルーチンに 分岐し ます • 
害 式 2) 割り込み を 禁止し ます. 以後 ライ 卜 ペン を 押しても 処理 ル一 チンへの 分 



岐は 起こりません, 



害 式 3 



チンへの 分岐 は 起 



ON 命令に よって 割り込みが 許可され ると， 先程の ライ ト ペン を 押した 
ことによ つ て 処理 ル一チ ンに 分岐し ます. 

注意 ： プログラム 終了 時には PEN 
ください. 

参照 ： ON PEN GOSUB, PEN 
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POINT 





鰍 



Last Referenced Point (LP) を 変更し ます. 



POINT 



(Wx, Wy) 
STEP(x， y) 



POINT ( — 200， 30) 



システムに 記憶され ている， 最後に グラフ ィ ック 操作の 行われた 座標 を 変更し 



ます （こ 




座標に より 座標す 




ます). この 座標 は， 相対 



この 座標 を 設定 



する 働き をし ます • したがって 次の 例 1) と 例 2) と はまった く 同じ 意味 を 持つ こと 
になります. 

例 1) LINE ( — 200, 30) — （100， 120)， 3 
例 2) POINT (一 200， 30) 

LINE -STEP (300, 90)， 3 

STEP を 付け る と 相対 座標に よる 指定と なります. 



参照 ： LINE 



100 SCREEN 0，0:CIS 3 

110 FOR 1=0 TO 70 
120 POINT STEP(8,2) 
130 GOSUB »TRIANG し E 

140 NEXT I :END 

150 »TRI ANGLE 
160 し INE - STEP (- 50, 50 
170 LINE - STEP( 100,0) 
180 



,4 

2 



LINE -STEP(-50,-50),l:RETURN 
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POKE 



文 例 




メモリ 上の 指定 番地へ デー タを 害き 込みます. 

POKE く 番地〉， く 整数 表記〉 
POKE &HF000, &HFF 

指定され た メモリ 上の 番地に 1 バイ ト （8 ビッ ト） の データ を 書き込みます. 

〈整数 表記〉 は 書き込まれる データで， 0〜255(&H0 〜& HFF) の 値で なければ 
なりません • も し 小数点 以下が あると 整数 化してから 実行され ます • 

〈番地〉 は 2 バイ トの 値で， 
この 値 は DEF SEG 文で 宣言され た セグメ ント ベースからの 相対 ァ ドレス を 意味 

します. 

この 命令 は， 現在の メモリの 内容 を 書き換えて しまうた め， 不用意に 使う と 
BASIC が 使って いる 作業領域 を 壊して しまい， 誤動作の 原因と なるこ とも あり 
ます. 使う 時には， メモリ マップな どで 使用可能な 領域 かどう か を 確認して くだ 
さい. 




参照 ： PEEK, DFF SEG, VARPTR 
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PRESET 



画面 上の 任意の ド ッ 卜 を 消去 します. 



1 書 式 I PRESET (Wx， Wy) 

STEP (x f y) 
|_ 文 例」 PRESET (100， 100) 



〔， くパ レツ 卜 番号〉〕 



ワールド 座標の (Wx, Wy) で 表される ドッ トを 消去し ます. STEP を 付けた 場 



合 は 相対 座標に よる 指定と なります. 



方が 一般的な 使レ 



その 場合， 現在 COLOR 文に よって 設定され ている バッグ グラウンド カラーで 点 
を 塗り 変えます. 

〈パレット 番号〉 を 指定した 場合 は， PSET 文と まったく 同じに 機能し， その パ 
レット 番号の カラ一 で ドット を 表示 します. PRESET は LP (Last Referenced 



Point) を 指定 さ れた 座標 (Wx, 




に 設定し ます. 



LP に関する 詳細 は POINT 命令 を 参照して く ださ レ\ 



参照 ： PSET, 〔 1 〕 COLOR 



サン ブル 



100 SCREEN 0,0： COLOR ,0:(XS 2 



1 

120 FOR 1=0 TO 200 

130 PSET STEP(3,0),I 

140 POINT(0,100) 

150 FOR 1=0 TO 200 

160 PRESET STEP (3,0) 

170 NEXT I 



MOD 8： NEXT I 
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画面 または プリンタ に 情報 を 出 力し ます. 

1) PRINT 〔く 式〉…〕 

2) LPRINT 〔〈式〉…〕 
PRINT 、、1 = ク ； I, 、、」 = " ； J 



指定した 式の 値 や 文字列 を， 書式 1) は 画面に， 書式 2) は プリンタに 出力し ます 
〈式〉 が 省略され ている 場合 は 改行の み を 行います. 




式の 値 や 文字列 を 表示す る 領域 は， 
られ ており， 区切り 記号に コンマ を 使う と 次の 領域の 始めから， また セミコロン 
を 使う と 直前に プリ ン ト した ものの すぐ 後ろに 続いて 次の 値 や 文字列が 表示され 
ます. 区切り 記号と して 空白 を 用いた 場合 も セミコロンと 同様の 働き をし ます. 

〈式〉 の 最後に セミコロン 及び コンマ を 指定す る と 改行 動作 をお こさず， その 行 
で 次の PRINT 文に よる 出力 を 続行 します. 



、、 



変数と 、、（ダブル クオ一 テ一シ ヨン） で 囲まれた 文字列との 区切りに 限って 
； \ 空白 を 省略す る ことができ， このと き はセミ コロンと 同様の 働き をし ます • 

• また， 数の 前に 




符号の ための 桁 を 確保し ます. 単精度の 数値で， 指数 形式で なくても 6 桁 以下の 
桁 数で 精度に 影響を及ぼさず 表示で きる もの は， 実数 形式で 表示され ます • 




は， 実数 形式の 表示になります. 

この 命令の キ 一ヮ一 ド 、、PRINT〃 の 簡略 形と して 疑問符 （？） を 使用す る ことが 

許されます. 

表示す る 数値の 長さが 現在の カーソルの 位置よ り 後方に とれない 場合 （それ を 
表示す ると 次の 行に わたって しまう 場合） は 改行して から それ を 表示し ます. 
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100 FOR 1=2 TO 15 

1 110 FOR J = 0 TO 15 

120 PRINT CHR$(I*16+J);SPC(2); 
130 NEXT J 
140 PRINT 

150 NEXT I 

160 END 
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PRINT # 



シー 




こ データ を 出力し ます, 



I 書 式 I PRINT れ ファイル 番号〉， 〔く 式〉…〕 



ぼ 伊 7 1 PRINT #2， A， B， C 



PRINT #1， A$ ； 



、、 // 




〈ファイル 番号〉 は， その シーケンシャル ファイルが 出力 モー ドで 開かれた とき 

に 指定され た 番号です. 
〈式〉 は ファイルに 書き込まれる 数値 式 または 文字 式です. 

PRINT # 文 は データの 圧縮 を 行わず， PRINT 文で 画面へ 出力す る ものと 全く 

同じ もの を 出力し ます. ですから これらの データが ディ スク から 正しく 入力で き 
るよう に， ディ スクに 書き込まれた データ は 適切に 区切られ るよう 注意して く だ 

さい. 

〈式〉 中の 数値 式はセ ミコロ ンで 区切る ようにし てく ださい. 例えば， 
A = 123 
B=456 
C = -78 

PRINT #1, A ; B ; C 

この場合 ディ スクに 書 込まれる データ は 次のと おりです. 
□123DD456n-78 

(口 は 空白 を 意味し ます） 
もし 区切り 記号に コンマ を 使う と プリ ン ト 領域の 間に 挿入され る 余分な 空白 も 



ディスクに 書き込んで しまいます. 挿入され る 空白の 個数 は PRINT 文の 場合と 
同じです. 

文字 式もセ ミコロ ンで 区切って く ださい. ディ スク 上に 文字 表記 を 正し く 書き 



込む ために は， 区切り 記号 を データと して 出力させる 必要が あります. 文字列の 
区切り 記号 は コンマと キヤ リ ッジ リターン （CHR$(13)) です （詳細 は INPUTS 
命令の 説明 を 参照して ください）. 
例 を あげる と， A$ = "CAMERA" そして， B$ = 、、93604 — r のとき 次の 文， 
PRINT #1， A$ ； B$ 

は ディスクに CAMERA93604 — 1 と 書き込みます. これ は 区切り 記号が ありませ 
ん から 2 つの 別の 文字列と して 読み込む こと はでき ません. この 問題 を 解決す る 
に は， 次の よう に PRINT # 文中に 独立に 区切り 記号 を 入れて く ださい. 
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PRINT #1， A$ ； 



； B$ 



これによ つて ディスクに 書き込まれる イメージ は， 
CAMERA, 93604-1 
となり， 2 つの 文字 変数と して 読み込む ことができます. 



もし 文字列 それ 自身が デー 




ンマ， セミコロン， 意味の ある はじめの 
ン フィード など を 含む 場合 は， ダ ブルク 



ォ一 テーシ ヨン， CHR$(34) によって 囲んで ディスクに 書いて く ださい. 
例 を あげる と， A$ 二、、 CAMERA, □ AUTOMATICT また， B$ = 、、口 CO93604 

-V のとき （口 は 空白 を 意味し ます）， 次の 文， 
PRINT #1, A$ ； B$ 

は 次の ような イメージ を ディスクに 書きます. 

CAMERA, □ AUTOMATIC ロロロ93604— 1 
そして 次の 文， 

INPUT #1, A$， B$ 

は， A$ に は 、、CAMERA〃 を， そして B$ に は 、、AUTOMATICCOC193604 — 

r を 読み込んで しまいます. こ 





レ、. 次の 文， 

PRINT #1， CHR$(34) ； A$ ； CHR$(34) ； CHR$(34) ； B$ ； CHR$(34) 

は 次の 内容 を ディスクに 書き込みます. 



CAMERA, □ AUTOMATIC" "00093604— 1 7/ 



すると 次の 文， 

INPUT #1, A$， B$ 

は 、、CAMERA， □ AUTOMATIC 
みます. 

PRINT # 文 は， USING と共に 使 
する ことができます， 




—マット を 制御 



なお， WRITE # 文 を 使用す ると 適当に データが 区切られて 書き込まれます. 



注意： 出力 対象 ファイルが、、 SCRN ： 〃の 場合， 日本語 データの 出力 はでき ません. 



参照 ： WRITE #， PRINT # USING, INPUT # 



• -- Sequential data OUTPUT/ INPUT ― 

OPEN " STEST.DAT" FOR OUTPUT AS 眷 1 
PRINT 眷 1,DATE$;",";TIME$ 

«DATAWRITE 
INPUT "品名つ NA$ 

IF NA$="END H OR NA$="endT THEN *EXIT1 

INPUT "価格"； PLC 
INPUT " fi[ " ； NX 
PRINT き 1,NA$;",";PLC;NX 
GOTO *DATAWRITE 
*EX1T1 
PR I NT: CLOSE 

• -- Sequential data read -- 
TOTA し =0 

OPEN "STEST.DAT- FOR INPUT AS #1 
INPUT #1 ,DA$,TI$ 

PRINT - 日付 ： DA$, "時 IB! ： M ;TI$ 

PRINT 
*DATAREAD 

IF EOFd ) THEN *EXIT2 
INPUT 翁 1 ,NA$,P し C,NX 
SUM-P し ONX 

PRINT NA$;TAB(10);PLC;"* h ;NX;-- m ;SUM 
TOTA し- TOTA し +SUM 
GOTO *DATAREAD 
*EXIT2 

PRINT:PRINT "TOT A し-" 5 TOTA し 
END 



？ 米 

？ 2500 
？ 1 

？ 牛肉 

？ 800 

？ 4 
？ END 

： 85/06/06 時間 ： 06：06：06 

2500 * 1 * 2500 
800 * 4 » 3200 

TOTA い 5700 

Ok 



ooooooooooooo 

01234567890123 

11111111112222 



ooooooooooooooo 

456789012345678 

222222333333333 



n 名 格 數名格 K 名 付 肉 

^Dstt 儷 Dstt 儷 品 曰 米 牛 



PRINT 




USING 



I 機 能 I 文字列， 数値 を 編集 出力し ます. 




PRINT 
LPRIN 丁 



USING 〈書式 制御 文字列〉 ； 〈式〉 〔 



く 式〉…〕 〔 



〕 



PRINT USING 、、#####, ノ ； A， B 



く 書式 制御 文字列〉 によって 後に 続く 〈式〉 の 出力され る 領域 や 書式 を 決定し ま 



す. 



文字 変数 や 文字列の 書式 制御 



与え ら れた 文字 変数 や 文字 定数の 最初の 1 文字 だけ 出力 します. 



& く n 個の □ (空白）〉 & 



文字の 文字列 を 出力し ます. 




ら （n+2) 




余分な 文字 は 無視され， 短い 場合に は， 文字列 は左づ めに 出力され， 残った 剖 
分に は 空白が 出力され ます. 

@ …… 文字列 全体の 出力に 使います. 複数個 指定した 場合， 1 つの 、、@〃 に 対 
して 〈式〉 中の 1 つの 文字列が， 代入 • 出力され ます. 、、@〃 の 数が 文字列の 個数 

より 多い 場合， 残りの 、、@〃 は 無視され ます. 
数値の 書式 制御 

# …… 数値 を 出力す る 桁 数 を 指定し ます. 指定した 桁 数より 数値の 桁 数が 小さい 
ときには， 右づ めで 出力され ます. 



小数点の 位置 を 指定し ます, 




出力され ます. 



+ 



〈書式 制御 文字列〉 の 最初 または 最後に 付けた 場合， 数値の 符号が それ ぞ 



れ前 または 後に 出力され ます. 2 個 以上の 、、十〃 を 並べた 場合に は， 余分 は 後 
述の 制御 文字 以外の 文字 と 同じ 扱いになります. 




《制御 文字列〉 の 最後に 付けた 場合， 数値が 負の 数の 時に 数値の 後ろ 



に 、、一〃 が 出力され ます. 前に 付けたり， 2 個 以上 並べた 場合に は 後述の 制御 
文字 以外の 文字と 同じ 扱いになります. 



* * 



〈書式 制御 文字列〉 の 先頭に つけた 場合， 数値 領域の 左側に 空白 部分が 



できた とき， そこ を で 埋めて 出力し ます • この 、、**〃 は 2 桁 分の 領域 
を 確保し ます. 

•¥¥ …… く 書式 制御 文字列〉 の 先頭に つけた 場合， 出力され る 数値の 直前に 
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を 出力し ます. 、、¥¥ 〃は 2 桁 分の 領域 を 確保し ますが， このうち 1 桁 分 は、、 
の 出力 領域と して 使われます. 後述の 指数 形式の 書式 指定 を 行った 場合に は， 
正し く 出力され ない 事が あ り ます. 

* *¥ …… 〈書式 制御 文字列〉 の 先頭に つけた 場合， 上記の 2 つ （* * と ¥¥) の両 
方の 機能と なります. や **¥ 〃は 3 桁 分の 領域 を 確保し ますが， このうち 1 桁 
分 は 、、¥〃 の 出力 領域と して 使われます. 



桁 数 指定の T の 並びの 中に おいた 場合， 数値の 整数 部が 3 桁 毎に ヽ 



で 区切られて 出力され ます. ただし， 上記の、、.〃 より 右側に おいた 場合 は， 数 
値の 最後に， 、、，〃が 出力され， 3 桁 毎の 区切り は 行われません. 




桁 数 指定の T の 後に 付けた 場合， 指数 形式で 出力され ます. 




、、 // 



に 続く 1 文字 は 常に 




制御 文字 以外の 文字 

以上の 制御 文字 以外の 文字 を 置いた 場合， 数値の 前 や 後ろに その キャラクタ 力 

出力され ます. ただし 日本語文字 は 指定で きません. 



数値の 領域 を こえた 場合 

指定した 数値 領域より 数値の 桁 数が 大きい 場合， 数値の 直前に や ％〃 が 出力 さ 
れ ます. 数値の 丸めが 領域より 大きくなる 原因と なった 場合 も， 丸めた 数値の 前 
に や ％〃 が 出力され ます. 



注意: 




サ 
プロ 



ル 
厶 



100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



PRINT 
PRINT 
PRINT 
PRINT 



PRINT 
PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 



USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 



•I 
ti 
tt 
it 
it 
ti 
•I 
>■ 
it 
ii 
•• 
• i 

M 



！"; "NEC COMPUTER" 

& & "I"NEC COMPUTER" 

»#### M ;123.456 

#tt#tt#.#";l23.456 



r， 

綱 ttft, ，《 



if 



123,456 
； -123. 456 
123.456 
123.456 
123.456 
； 1234.56 

1234.56 



ti 



A A A A If 



II 



一 123.456 
123456! 

This Is a e. H ;"pen 



•t 
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run 

N 

NEC COMPU 
123 
123.5 
+123.5 
123.5- 
**123.5 
¥123.5 
*¥123.5 
1 ,234.6 
12345. 6E - 01 
¥123.- 
X123456 

This is a pen. 
Ok 
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PRINT # USING 



I 機 能 I 文字列， 数値 を ファイルに 編集 出力し ます. 



L 書 式 I PRINT # く ファイル 番号〉， USING く 書式 制御 文字列〉 ； く 式〉 〔 




く 式〉…〕 



〔 



〕 



PRINT #2, USING 、、####" ； A 



〈ファイル 番号〉 で 指定され た ファイル に対して， 文字列 や 数値 を 編集して 出力 
します. 

PRINT # USING は， その 対象が フ アイ ル である こ と を 除けば PRINT 
USING とまった く 同じです. 

注意： 日本語 を 含む 文字列 を 編集 出力す る こと はでき ません. 



参照 ： PRINT USING, PRINT #, OPEN 
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PSET 



i 機 能 



画面 上に ドット を 表示し ます. 



PSET 



(Wx， Wy) 
STEP(x， y) 



〔， く パ レツ ト 番号〉〕 



PSEK100, 100), 4 



ワールド 座標の (Wx， Wy) の 位置に ドッ トを 表示し ます • STEP を 付ける と 相 

対 座標に よる 指定と なります. 

カラー は 〈パレット 番号〉 によって 指定し， もし 省略され た 場合 は， 現在の フォ 
ァ グラウンド カラ一 （〔1〕 COLOR 文 参照） が 採用され ます. 

PSET は LP(Last Referenced Point. 詳細 は POINT 関数 を 参照して く ださ 
い） を 指定され た 座標 (Wx, Wy) に 設定し ます • 



参照： 




COLOR, PRESET 



5 口 



ル 
厶 



100 



120 
130 
140 
150 
160 
170 



SCREEN 0,0:(XS 2 
CO し OR , , , 4 
PSET(100,100) 

POINT(150.100) 
FOR 1=0 TO 7 

PSET STEP( 10,0) 
NEXT I 



I 
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PUT 




圜 



バッファ 中の データ を ファイルに 書き出します, 
PUT 〔#〕 〈ファイル 番号〉 〔， く 数〉〕 
PUT #3， 5 



〈ファイル 番号〉 で 指定され た ファイルに 対応す る バッファの 内容 を 書き出し ま 



す. PUT は， お 



作が 異なります. 




どうかで， その 動 



く ファイル 番号〉 で 指定され た ファイルが ディ スク ファイルの 場合に は， PUT 



は， 




きます. 指定され た ファイル は， ラ 



ン ダム ファイルの モー ドで オープンされ ていなければ なり ません. く 数〉 はフ アイ 
ルの レコード 番号と して 解釈され， バッファ 中の データが 指定され た レコードに 

書き込まれます. レコード 番号が 省略され た 場合に は， 直前に 行われた， GET, 
PUT で 参照され た レコードの 次の レコードに 書き込まれます • レコード 番号の 
最小値 は 1， 最大値 は 65000 です. 

〈ファイル 番号〉 で 指定され た ファイルが プリ ンタ あるいは スク リーン ファイル 
の 場合に は， PUT は， バッファ 中の データ を 指定され た ファイル に対して 出力す 
る 働き をし ます. この 時， 指定され た ファイル は 出力 モードで オープンされ てい 
なければ なりません. 〈数〉 は バッファから， ファイル に対して 書き出す 文字 数 を 
意味し， ランダム バッファ サイズの 範囲 内で 指定し ます. 〈数〉 が 省略され た 時， 
及び 0 が 指定され た 時には， 256 文字 を 書き出します. 

なお 書き出す データ は 予め FIELD, LSET/RSET により 準備して おかね ば な 
り ません. 



参照 ： OPEN, FIELD, GET, LSET/RSET 



吸: 
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サ ン 



ル 



100 '-- random data write -- 

110 OPEN "DATAl" AS #1 

120 FIELD *K30 AS A$，20 AS B$,50 AS C$ 

I 3Q *enjry 

140 LINE INPUT "名前？"： 國$ 

150 IF NAM$="END" OR NAM$= H end" THEN 畅 EXIT 

160 LINE INPUT "TEL? ":TE し $ 

170 LINE INPUT "住所 7'"ADR$ 

180 し SET A$=NAM$ 

190 し SET B$=TE し $ 

200 し SET C$=ADR$ 

210 PUT #1 

220 GOTO GENTRY 

230 *EXII 

240 CLOSE 



9 

o 1 

o 1 

o o 

o 一 

一 HI IB 

o 丁 IT 

17 一 8 

1 地 治 8 山 

徹 一 築 謙00 原 

3 区 4 市 

野 o 央沢 o 和 

H? 中 松？ 浦 

C* し 77 し 7 

c: 前 E 所 前 E 所 前 

g 名 T 住 名 T 住 名 W 
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PUT@ 



グラフィック パターン や 漢字 を 画面に 表示し ます. 

1) PUT〔@〕 （Sx, Sy), く 配列 変数 名〉 〔く 要素 ナンバー〉〕， 〔， く 耕〉 丌， くフォ 



ァ グラウンド カラー〉， く バックグラウンド カラー〉〕 



2) 



ド カラ一〉， く バックグラウンド カラー〉〕 



1) PUT(100, 100)， G%, PSET 

2) PUT(0， 0)， KANJK12321) 



wm 害 式 1) 



GET@ の 命令に よって 配列に 読み込まれた グラフ ィ ック パターン を 画面 上の 

任意の 位置に 表示し ます. 

座標 （Sx， Sy) は GET@ の 場合 と 同様で， ワール ド 座標で は なく スク リ一 ン座ぁ 
で 指定し ます. また この 命令 を 実行す ると LP は （Sx, Sy) に 移動され ます • 

〈配列 変数 名〉 は 表示したい グラフ ィ ック パターンが 格納され ている 配列 名で あ 
り ， く 要素 ナ ン バ一〉 は 配列 内の どこから デ一 タを 取り 始める かの 指定です. 〈要素 
ナンバー〉 が 省略され た 場合 は， 配列の 最初から 取り 始めます. これらの 指定 は， 

GET@ 命令で 使った ものと 同じ もの を 指定し ます. 

〈条件〉 と は， グラフィック パターン を 画面に 表示す る 際， いろいろな 機能 を 指 
定 する もので， 以下の ものが 用意され ています. 



PSET 
PRESET 



OR 



AND 



XOR 



配列 内の グラフ ィ ック パターン を そのまま 表示し ます. 

白黒 モ一 ドの 場合 は 配列 内の パターン を リバースして 表示し ま 

す. カラ 一モードの 場合 は 各 ドットの パレット 番号 を， 7— (その 

ドットの パレット 番号） （4096 色 中 • 16 色 モードの 場合 は， 15 — 

(その ドットの パレット 番号）） として 表示し ます， 

配列 内の グラフ ィ ック パターンと， 既に ある 画面 上の グラフ ィ ッ 

ク パターン をビッ ト （ドット） ごとに OR (論理和） し， その 結果 
を 画面に 表示し ます. 

配列 内の パターンと 画面 上の パターン をビッ ト ごとに AND (論 
理積） し， その 結果 を 画面 上に 表示し ます. 
配列 内の パターンと 画面 上の パターン をビッ ト ごとに XOR (排 
他 的 論理和） し， その 結果 を 画面に 表示し ます. 
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※これらの く 条件〉 は 画面 モ一 ド によって 演算の 対象が 違います. 白黒 モードの 

場合， ドットが あるかな いか （1 ビット） を 対象と し， カラ 一モードの^^， 
各パ レツ ト 番号 を 対象と します. 

例） （パ レツ ト 3) AND (パ レツ ト 6) — (パ レツ ト 2) 

最後の 〈フォアグラウンド カラ一〉， 〈バックグラウンド カラー〉 は， 白黒 モ一 
ドの 時に 読み込んだ パターン を カラ一 モ一 ド において 表示す る 時に のみ 有効な ォ 
プシ ヨン パラメータです. この 2 つの パラメ一 タは 両方と も 指定す るカヽ 両方と 
も 指定し ないかの どちら かし か 許されません. 

く フォアグラウンド カラー〉 は， 白黒 モー ドで 読み込んだ 際に 白であった ドッ ト 
に対しての 色 指定で， これ を カラ 一モードに おいて 実行す る と 任意の 色に 変える 
こ とがで き ます. く バックグラウンド カラ一〉 は 同様に 黒であった ドッ 卜に 対して 
の 色 指定です. これら は 共に パレ ッ ト 番号に よって 指定し ます. 

ミ 主意： GET@ と PUT@ 命令 は 上記した く フォアグラウンド カラ一〉， く バック グラ 
ゥンド カラ一〉 を 指定して 白黒 モー ドで 読み込んだ パターン を カラ一 モ一 

ドで 表示す る 用途の 他 は， 原則として 同一 画面 モー ドで 使用す るよ うにし 
てくだ さい. 

書式 2) 

〈漢字 コード〉 で 指定され た 漢字 または 非 漢字 を グラフ ィ ック 画面に 表示し ま 
す. 

使用で きる 文字 は， JIS 第 1 水準， 第 2 水準お よび 利用者 定義 文字で， これら は 

ROM および RAM の 中に 格納され ています. ュ一 ザ一 は これらの 中から 任意の 

文字 を 〈漢字 コード〉 （ユーザ一 ズ マニュアル 参照） によって 指定し， 画面 上に 日本 
語の 文章 を 表示す る ことができます. 

書式 1) の PUT 文で は ユーザ一 が GET 文に よって 配列に 読み込んだ バタ一 
ンを 画面に 表示し ますが， 漢字の PUT 文で は 配列 内の データに あたる もの 力、 あ 
ら かじめ 用意され ています. この こと を 除けば， その 使い方 及び 機能 は 書式 1) の 
場合と ほぼ 同様です • ただし， 漢字 パターン は 原則として 縦 16 ドット， 横 16 ドッ 
卜の 大きさと 決められ ています （8X8， 8 X16 の もの もあります. ユーザーズ 
マニュアル 参照)， また 漢字 パターン は 白黒 モードで GET した 場合と 同じ 形で 格 
納 されて いますから， カラ 一モードに おいて 〈フォアグラウンド カラー〉， 〈バッ 
ク グラウンド カラー〉 で 指定して カラ一 表示させる こと も 可能です. 



100 SCREEN 0,0:CLS 3 
110 XD=80:YD=80 

130 FACT=BYTE¥2+1 
140 DIM GX ( FACT ) 
15 ひ ' 

160 LINE(0,0)-STEP(XD-1,YD-1),1,B 
170 ClRCLE(XD/2-l, YD/2-1), YD/4, 4 
180 GET(0,0)-STEP(XD-1,YD-1),GX 
190 # 

200 FOR X=0 TO 500 STEP 200 
210 PUT(X,500),G%:NEXT 



回 

回 同 回 回 回 回 



100 kanJi print -- 

110 DATA 427E . 3A23 . 344 1 . 3B7A , 244E 

120 DATA 2546. 2539. 2548. 4366. 21 2A 

130 • 

140 SCREEN 0,0: CIS 3 

150 X=200 

160 FOR 1=1 TO 10 

170 READ A$:KCODE-VA し （"&H"+A$) 

180 PUT( X, 300), KANJI (KCODE),PSET, 7,0 

190 X=X+70 

200 NEXT I 



RANDOMIZE 




K — ^^^^ , 



新しい 乱数 系列 を 設定し ます. 

3 RANDOMIZE 〔く 式〉〕 



文 ®LI RANDOMIZE 



新しい 乱数の 種 (seed) を 与える ことによって 乱数 系列 を 変更し ます. 乱数の 
seed は 〈式〉 によって 一 32768 から 32767 の 間で 与えます. 〈式〉 が 省略され た 場合， 
メッセージが 出力され て， seed を 要求して きます • 

この場合 も 〈式〉 と 同じ 範囲の 値 を 入力し なければ なりません. もし この 範囲 を 
越える と "Overflow ク エラーと なります. 



参照 ： RND 



I 



100 
110 
120 
130 
140 
150 
160 
170 



GOSUB *RNDSUB 

C し EAR:G0SUB *RNDSUB 

RANDOMIZE 

GOSUB *RNDSUB 

END 

»RNDSUB' -- rnd number 

FOR 1=0 TO 9 
PRINT 

NEXT 〖：PR1NT 
RETURN 



print 



run 

0 6 9 9 3 8 8 
0 6 9 9 3 8 8 

Random number seed ( 
2 1 6 5 7 8 3 

Ok 



7 9 
7 9 
32768 
6 4 



3 
3 

to 32767)? 
3 
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READ 




DATA 文より 値 を 読み， 変数に 割り当てます, 
□ READ く 変数 リスト〉 



文 gyj READ K， M， S$ 



口 



READ 文 は DATA 文と 組み合わせて 使わなければ なりません. READ 文 は 



DATA 文の デ一 




いきます. READ 文 



の 変数 は 数値 変数で も 文字 変数で も かまいません • しかし 読み出された 値と 変数 



場合に は 



error" が 起こ ります. 





照したり （複数の 場合 



参照す 



は 順番に 参照され ます）， またい 
る ことができます. も し 〈変数 リ ス ト〉 の 変数の 数が DATA 文の データの 個数 を 

越えて しまった 場合 は， 、、OutofDATA" の エラ 一メッセージが 表示され ます • 
指定され た 変数が DATA 文の データの 個数よ り も 少ない 場合に は， その 次の 
READ 文が 読まれなかった データから 読み 始めます. も しそれ 以上 READ 文が 
ない 場合に は， 余分の データ は 無視され ます. 
始めから， あるいは 途中から DATA 文 を 読みな おすに は， RESTORE 文 を 使 

います. 




参照 ： RESTORE, DATA 



Z^/^t 100 FOR 1=0 TO 10 
110 READ A 

120 PRINT A; 

130 NEXT I 

140 READ A$:PRINT A$ 
150 END 

160 DATA 10, 9, 8, 7, 6,5, 4, 3, 2, 1,0, Fire! 



run 

10 987654321 0 Fire! 
Ok 
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REM 



rsr^ 注釈 行 を 定義し ます. 



I 書 式 1 REM 〔〈注釈 文〉〕 



コ REM 給与 計算 



f-,AB7^ 漏 



REM 文 は 非 実行 文で あり， プログラムの 実行に 影響 を 与えず コメント 行と す 
る ことができます • リス 卜 を 取る と 入力した 内容が そのまま 出力され ます. 

キ 一ワード 、、RE1VT の 代わ りに アポストロフィ （，） を 使う ことができます. REM 
文の 行の 後に は， コ 口 ンで 区切って 他の 文 を 続ける こ と はでき ません. 
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RENUM 




1* 


5^1 


文 


例 





RENUM 〔く 新 行 番号〉〕 〔， く 旧 行 番号〉〕 〔， く 増分〉〕 
RENUM 

〈新 行 番号〉 は， 新しくつ ける 行 番号の 最初の 行 番号で， 省略 値 は 10 です • 〈旧 行 

. 省略 値 は そ 





の プログラムの 最初の 行 番号です. 

分で， 省略 値 は 10 です • 
RENUM コマンド は， また， GOTO, GOSUB, THEN, ON〜GOTO， ON " 

GOSUB および ERL 文な どで 参照して いる 行 番号 も 新しい 行 番号に 対応して 変 

更 します. もし これら の 文が 参照 している 行 番号の 行が 存在 し な い 場合 に は， 
Undefined line xxxx in yyyy" と エラ 一メッセージが 表示され ます. この場合， 

誤った 行 番号 xxxx は RENUM コマンド によって 変更され ません が， 行 番号 

yyyy は 変更され ます • 

注意 ： 65529 以上の 行 番号 は 発生す る こ とがで きません. このよう な 場合に は 
illegal function call" エラーが 起こ ります • 
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RESTORE 




READ 文で 読む DATA 文 を 指定 します, 



I 書 式 I RESTORE 〔〈行 番号〉〕 



文 伊 LI RESTORE 800 



^^^^^ ^^^^^^^^^^^1 ； ^^^^^L 




く 行 番号〉 が 省略され ると， 次に くる 

文から 読み 始めます. 〈行 番号〉 を 指定す ると， 指定され た 行の DATA 文から 読 
み 始めます. 



プロ 



コヅ ラム I 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 



READ A,B,C 
RESTORE 
READ D,E,F 

RESTORE *STRDATA 
READ A$,B$,C$ 
PRINT A，B,C 
PRINT D,E,F 
PRINT A$,B$,C$ 

END 

DATA 1,2,3 
DATA 4,5,6 
»STRDATA 
DATA AA,BB,CC 



run 
1 
1 

AA 
Ok 



2 
2 
BB 



3 
3 
CC 
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RESUME 



S3 



エラー 回復 処理 終了後， プログラムの 実行 を 再開し ます. 



[W ^] RESUME 



〔0〕 
NEXT 

〈行 番号〉 



RESUME 0 
RESUME NEXT 
RESUME 1000 



プログラムの 実行 を 再 

できます. 
RESUME 

または 
RESUME 0 

RESUME NEXT 




； ことが 



エラーの 原因と なった 文から プログラムの 実行が 再開 
されます. 



RESUME く 行 番号〉 



エラーの 原因と なった 文の すぐ 次の 文から 実行が 再開 
されます. 

く 行 番号〉 で 指定した 所から 実行が 再開され ます. 



参照 ： ON ERROR GOTO 



サン ブル 
プ 0 グラム 



100 ON ERROR GOTO *ERRSUB 

110 *ENTRY 

120 INPUT "X,Y";X,Y 

130 A-X/Y 

140 PRINT "X/Y = H ;A 

150 GOTO GENTRY 

160 *ERRSUB 

170 PRINT "* * ft "算 できません 

NTRY 



Y? 100,10 
Y - 10 
Y? 35,0 

* 計算で きません ：•： 
Y? 35,5 



n 

7 1 

n k 

？ a 

Yy e 

u , / »f ,/ t r k 

rxxx^xxxBO 
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ROLL 



I 機 能 I グラフィック 画面 を 上下 あるいは 左右に スクロールさせます, 



【― m' 



0 ROLL 〔く 上下 方向 ドット 数〉〕 〔， く 左右 方向 ドット 数〕 〔, 



支 例 



N 

Y 



〕 



ROLL 16 



グラフ ィ ック 画面 を 指定され た ドッ ト数 だけ 上下 左右に スクロール します. く 上 

下方 向ドッ 卜 数〉 と は 画面の 縦ドッ ト 数です. 許される 値 は 640X200 の 分解能で 
は 一 199 から 199， 640X400 の 分解能で は 一 399 から 399 までの 値で， 正の 場合に は 
上方 向に， 負の 場合に は， 下方 向に 指定の ドット 数 (絶対値) だけ スクロール しま 
す. 省略した 場合， 上下 方向の スクロール は 行いません. 

〈左右 方向 ドッ ト数〉 と は 画面の 横の ドッ ト 数です. 許される 値 は 一 639 から 639 
までの 値で， 正の 場合に は 左方 向に， 負の 場合に は 右方 向に， 指定の ドッ ト数 (絶 
対 値） 以下で 最も 大きい 8 の 倍数と 等しい ドッ 卜 数 だけ， スクロール します. 省略 
した 場合， 左右 方向の スクロール は 行いません. 

N または Y の 指定 は， スクロール により 新たに 表れた 領域 をパ レツ 卜 番号 0 で 
ク リアす るカヽ ノ マック グラウンド カラーで ク リアす るか を 指定し ます. 

Y を 指定す ると， ノ マック グラウンド カラ一 でク リアし， N を 指定す るか， 省略 
した ときには， ノヽ 。レット 番号 0 でク リアし ます. 



100 SCREEN 1 ,0:CLS 3 

110 FOR I-&H3000 TO &H5000 STEP &H1 

120 FOR J=&H21 TO &H7E 

130 KC0DE=I+J 

PUT ( X , 1 6 8 ) , KAN J I ( KCODE ) , PSET 
X=X+20 

160 IF X>623 THEN X-0:RO しし 18 
170 NEXT J 
180 NEXT I 



0 
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RUN 



1 



メモリに ある プログラムの 実行 を 開始し ます. また， ディスクから プログラム を 
メモリに ロードし， その プログラム を 実行し ます. 




1) RUN 〔〈行 番号〉〕 



2) RUN 



1) RUN 100 

2) RUN 、、2 ： TEST 



〔， R〕 



書式 1) 〈行 番号〉 を 指定す ると， その 行から 実行が はじまります. 指定の ない 場 

合に は， 最も 若い 行 番号の 行から 実行が はじまります. プログラムの 実 

行が 終る と BASIC はいつ でも コマ ン ドレ ベルに 戻り ます. 
書式 2) 〈ファイル ディスク リ プタ〉 で 指定され る ディスク 上の プログラム を 口一 



ド後 実行 を 開始し ます. 



RUN 



ン ド を 実行す る と， すべての 開いて いる ファイル は 閉じ， 目的の プロ 



グラム を ロード 




しかし， R オプション を 



付けた 場合に は， すべての データファイル は 開いた ままに なり ます. 



参照 ： CHAIN 
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SAVE 




SAVE く ファイル ディスクリプタ〉 〔， 



A 
P 



こ セーブし ます. 



〕 



SAVE 、、2 ： MYPROG", A 



く ファイル ディ スクリ プタ〉 で 指定され る ファイルに プログラム を 書き込み ま 



'レが 存在した 場合に は 



失な われて， 新しい ものに 更新され ます, 
A ォ プショ ンが 指定され た 場合に は， 




一形 式で セーブされ 




LIST 命令で 表示した 時と 同じ イメージで セーブが 行われ ま 



す）. オプションの 指定がない 場合に は， バイ ナ リ 形式に 圧縮され て プログラムの 
セーブが 行われます （メモリ に 格納され ている 時の イメージで そのままで セーブ 

されます）. アスキー 形式の セーブ は， バイナリ 形式よりも， 多くの ファイル スぺ 

ン ド によって は プログラムが アスキー 形式で セーブ 



—スを 必要と します が， 
されて いる ことが 条件と なる 場合が あります. 例えば MERGE コマンド は， ァス 
キ —形式の ファイル を 必要と します. また， アスキー 形式で セーブ された フ アイ 

ルは， データファイル として 読み出す ことができます • 

P オプション を 指定した 場合に は， プログラム は 暗号化 された バイナリ 形式で 
セーブ されます. P オプションで セーブ された プログラム を メモリ に ロードして 
も， LIST や EDIT により 内容 を 見たり， 変更しょう とすると， "Illegal function 
cal 广 エラ一 となり ます. 一度 P オプション によ り 保護が 指定され る と， これ を 解 
除す る 方法 は 用意され て おらず， 二度と 内容の 変更 等 はでき なくなる ので 注意し 
てくだ さい. 



参照 ： LOAD, MERGE 
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SCREEN 



1 機 能 I グラフ イツ ク 画面に 対 し て 種々 の モー ド を 設定 します, 

I 書 式 I SCREEN 〔く 画面 モード〉〕 〔， く 画面 スィッチ〉〕 〔， 

〔， く ディスプレイ ページ〉〕 



文 伊 7 




ページ〉〕 



SCREEN 1， 0, 0, 7 



カラ 一モードに する か 白黒 モードに する か， カラ一 または 白黒 モードで どのべ 

—ジを 書き込み 及び 表示 ページと する かな ど， ディスプレイの グラフ ィ ック 画面 
に対しての 種々 の モード を 設定し ます. 
〈画面 モード〉 は， カラ一， 白黒， 分解能な ど， グラフィック 画面の 最も 基本的 

な モー ドを 設定す る パラメ一 タで 次の 値 をと り ます. 



カラ 一モー ド （640X200 ド ッ ト， 4 ページ） 

白黒 モード （640X200 ドッ ト， 12 ページ （16 色 モードの 場合 は 16 ページ）） 



0 — — 

1 — — 

2 — 高 分解能 白黒 モード 

(640X400 ドッ ト， 6 ページ （16 色モ一 ドの 場合 は 8 ページ）） 

3 — — 高 分解能 カラ 一モード （640X400 ドッ ト， 2 ページ） 

〈画面 スィ ツチ〉 は， 1 ビッ 卜で 表現され る， 、、グラフ ィ ック マスク スィッチ" 
と 、、高速 書き込み スィッチ ウ の 2 つの スィッチ を 合わせ 持った パラメータです 



、、グ フフ ィ ック マスク スィ ツチ" を ON にす ると， 現在 グラフ ィ ック 画面に 描かれ 
ている パターン など は一 時 的に 消去され ます • OFF に すれば 元に 戻ります • 

、、高速 書き込み スィ 、、ほ" は 特に 意味の ない ダミー スィ ツチです. 
この 2 つの パラメ一 タは 次のように 2 ビッ 卜の ビッ 卜 対応に なって おり， 与え 
る 値と して は 次のように 0 から 3 までとなります. 




ビビ 

'ン v 

卜 卜 

1 0 

グラフィック マスク スィッチ 高速 害き 込み スィッチ 



0 




咼速 書き込み， グラフィック マスク スィッチ 共 OFF 



1 ^ ^STD 高速 書き込み スィッチ のみ on. 
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2— [ 




3 




グラフィック マスク スィ ツチの み ON. 

高速 書き込み， グラフィック マスク スィッチ 共 ON 




〈ァク ティ ページ〉 と く ディスプレイ ページ〉 は 書き込む ページと 表示 ページの 

選択 を 行うた めの ものです. 

—ジ〉 と 〈ディ ス プレイ ページ〉 に 指定で きる 値と その 意味 は 8 

色 モード （パ レツ 卜 モードが 8 色 中 • 8 色 モードの 場合 あるいは 4096 色 中 • 8 色 

モードの 場合） と 16 色 モード （パレット モードが 4096 色 中 • 16 色 モードの 場合） 

で 異なります （パ レツ 卜 モードに 関して は 〔1〕 COLOR を 参照して ください） • 

(1) 8 色 中 • 8 色 モー ド あるいは 4096 色 中 • 8 色 モー ドの 場合 




—ジ〉 に は 今後 グラフ ィ ック 命令に よって 書き込む ページ を 0 力 



ら 11 で 指定し ます. 



く アクティブ ページ〉 指定 値と ページ 番号の 閱係 



ページ 番号 


画面 モー ト' ごとの ァク ティ ブ • ページ 指定 值 


0 


1 


2 


3 


1 


0 


0 


0 


0 








1 


1 




2 


2 


2 


X 


4 


3 


3 


3 


X 


5 


X 


4 


4 


X 


6 


X 


5 


5 


X 


7 


X 


6 


X 


X 


8 


X 


7 


X 


X 


9 


X 


8 


X 


X 


10 


X 


9 


X 


X 


11 


X 


10 


X 


X 


12 


X 


II 


X 


X 



X 印 ： 指定 不可 




ページ〉 は 画面 モ一 ドに 対応した ページの うち どの ページ を 表示 



する か を 指定し ます. 




ージ〉 指定 値と その 意味 



ページの 値 


画面 モー ド ごとの 意味 


0 

リ 


1 

權 


2 


3 


0 

リ 


含べ一 ジ褰 示しない 
-X. z 仏/」、 レ，、 


全べ一 ジ褰 示しない 

ェ z 》\ リ、 V ^ v 


全 ページ 表示し ない 


舍 ページ 表示し ない 
よ , 》、 リ , v ^ 


1 

1 


ページ 1 のみ 軎示 


ページ 1 のみ * 示 


ページ | のみ 表示 


ページ 1 のみ 表示 

' ， ^ * 》、 リ、 


2 


ページ 2 のみ 表示 

z に v ノレ/" リ 、 


ページ 2 のみ 表示 


ページ 2 のみ 表不 

, k V ' v >、 リ' 


X 


3 


X 

,ヽ 


ページ 1 スを 合成 表示 


ページ 1,2 を 合成 表示 


X 


4 


X 


ページ 3 のみ 3Itf 


ページ 3 のみ 表示 


X 


5 


八 


ページ | 7 を 含 成 31 示 


ページ 1， 3 を 合成 表示 


X 


6 


V 

/\ 


ベ— ジ 2 3 を 会 Bin 示 


ページ 2, 3 を 合成 表示 


X 


7 




へ 一つ ] 2 ？ な^ 5 秀テ、 


ページ 1,2, 3 を 合成 表示 


X 


Q 
u 


令べ ージ t\ I \ 

王ゝ y «'J v しょ t 


令 ページ 夷 元 1 ない 


全 ページ 表示し ない 


全 ページ 表示し ない 


Q 


V 

八 


ベ一。 4 のみ 31 示 


X 


X 


in 

1 リ 


y 

へ 


ページ 5 のみ * 示 


X 


X 


1 1 
1 ■ 


V 

/\ 


ベ—、 リ 4 5 を 会 示 


X 


X 




八 


ページ h のみ 考 


X 


X 


13 


V 

八 


ぺ―づ 4 6 ^含 成亵 示 


X 


X 




1A 

1 ， 


X 


ページ！； fi を 合成 * 示 


X | x 


1 O 


V 


ベーつ 4 5 6 を 合成 * 示 


X 


X 


16 

1 V 


全ぺ一 ジ$ 示しない 

ェ z wj、 v * v 


全 ページ 褻 示しない 

ェ ^ W リ、 v «p v 


全 ページ 表示し ない 


全 ページ 表示し ない 


17 


ベ一 ジ 3 のみ 表示 

z リ V , V 厂 $、 リ、 


ページ 7 のみ 3Itr 


ページ 4 のみ 表示 


ページ 2 のみ 表示 


18 

■ リ 


ベ一 ジ 4 の み 31 示 


ページ 8 のみ 31 示 


ページ 5 のみ 表示 


X 


10 

1 リ 


へ 


ベ— ジ 7 8 を 念 6?秀 示 


ページ 4, 5 を 合成 表示 


X 


20 


X 


ページ 9 のみ 齊 


ページ 6 のみ 表示 


X 


91 


X 


ページ 7, 9 を 合成 表示 


ページ 4, 6 を 合成 表示 


X 


22 


X 


ページ 8, 9 を 合成 表示 


ページ 5, 6 を 合成 表示 


X 


23 


X 


ページ 7, 8, 9 を 合成 表示 


ページ 4, 5, 6 を 合成 表示 


X 


24 


全 ページ 表示し ない 


全 ページ 表示し ない 


全 ページ 表示し ない 


全 ページ 表示し ない 


25 


X 


ページ 10 のみ 表示 


X 


X 


26 


X 


ページ II のみ 表示 


X 


X 


27 


X 


ページ 10, II を 合成 表示 


X 


X 


28 


X 


ページ 12 のみ 表示 


X 


X 


29 


X 


ページ 10. 12 を 合成 表示 


X 


x 


30 


X 


ページ II， 12 を 合成 表示 


X 


X 


31 


X 


ページ 10,11， 12 を 合成 表示 




X 



S 



x 印 ： 指定 不可 
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(2) 4096 色 中 • 16 色 モードの 場合 

〈ァク ティ ブ ページ〉 に は 今後 グラフ ィ ッ ク 命令に よって 書き込む ページ を 0 か 
ら 15 で 指定し ます. 



く アクティブ ページ〉 指定 値と ページ 番号の 関係 



ページ 番号 


面面 モー ド ごとの ァク ティ ブ • ページ 


指定 值 


0 1 


1 | 2 


3 


1 


0 


0 


0 


0 


2 










3 


2 


2 


2 


X 


4 


3 


3 


3 


X 


5 


X 


4 


4 


X 


6 f x n 


5 


5 


X 


7 


X 


6 


6 


X 


8 


X 


7 


7 


X 


9 


X 


8 


X 


X 


10 


X 


9 


X 


X 


11 


X 


10 


X 


X 


12 


X 




X 


X 


13 


X 


12 


X 


X 


14 


X 


13 


X 


X 


15 


X 


f" 14 


X 


X 


16 


X 


| 15 


X 


X 
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く ディスプレイ ページ〉 は 画面 モードに 対応した ページの うち どの ページ を 表示 

する か を 指定し ます. 



ディ ス ブレイ 

ページの 値 


画面 モード 


ごとの 意味 


0 


1 


2 


Q 
0 


0 


全 ページ 表示し ない 


全 ページ 表示し ない 


全 ページ 表示し ない 


ベ • 、'中二 | チ、 | 、 
全へ一 ン表不 しない 


1 


ページ 1 のみ 表示 


ページ 1 のみ 表不 


ページ 1 のみ 表示 


れ ^一 ン 1 のみ 表不 


2 


ページ 2 のみ 表示 


ページ 2 のみ 表示 


ページ 2 のみ 表示 


X 


3 1 X 


ページ 1， 2 を 合成 表示 


ページ 1,2 を 合成 表示 


V ゾ 

X 


4 


X 


ページ 3 のみ 表示 


ページ 3 のみ 表示 


V ノ 

X 


5 


X 


ページ 1， 3 を 合成 表示 


ページ 1， 3 を 合成 表示 


X 


6 


X 


ページ 2, 3 を 合成 表示 


ページ 2, 3 を 合成 表示 


、 J 

X 


7 


X 


ページ 1， 2, 3 を 合成 表示 


ページ 1,2, 3 を 合成 表示 


X 


8 


X 


ページ 4 のみ 表示 


ページ 4 のみ 表示 


X 


9 


X 


ページ 1， 4 を 合成 表示 


ページ 1 ， 4 を 合成 表示 


X 


10 


X 


ページ 2 ， 4 を 合成 表示 | ページ 2 , 4 を 合成 表示 


X 


11 


X 


ページ 1,2, 4 を 合成 表示 


ページ 1,2,4 を 合成 表示 


X 


12 


X 


ページ 3. 4 を 合成 表示 


ページ 3. 4 を 合成 表示 


X 


13 1 x 


ページ 1， 3， 4 を 合成 表示 


ページ 1,3， 4 を 合成 表示 


X 


14 


X 


ページ 2， 3, 4 を 合成 表示 


ページ 2， 3, 4 を 合成 表示 


X 


15 


i X 


ページ 1,2,3,4 を 合成 表示 | ページ 1 ， 2, 3， 4 を 合成 表示 


X 


16 


全 ページ 表示し ない 


全 ページ 表示し ない | 全 ページ 表示し ない 


全べ 一 ジ表不 しない 


17 


X 


ページ 5 のみ 表示 


X 


X 


18 


X 


ページ 6 のみ 表示 


X 


X 


19 


X 


| ページ 5, 6 を 合成 表示 


X ！ 


X 


20 1 X 1 


ページ 7 のみ 表示 


X 


X 


21 


X 


ページ 5, 7 を 合成 表示 


X 


X 


22 


X 


ページ 6， 7 を 合成 表示 


X 


X 


23 


X 


ページ 5, 6, 7 を 合成 表示 


X 


X 


24 


X 


ページ 8 のみ 表示 


X 


X 


25 


x 


ページ 5, 8 を 合成 表示 


X 


X 


26 


X 


ページ 6, 8 を 合成 表示 | X 


X 


27 


X 


ページ 5， 6. 8 を 合成 表示 X 


X 


28 


X 


ページ 7, 8 を 合成 表示 | X 


X 


29 


X 

r x 

r x i 


ページ 5, 7， 8 を 合成 表示 


X 


X 


30 


p ^—ジ 6, 7, 8 を 合成 表示 


X | X 


31 


ドージ 5, 6， 7， 8 を 合成 表示 


X 


X 


32 


全 ページ 表示し な^ 


全 ページ 表示し ない 


全 ページ 表示し ない 


全 ページ 表示し ない 


33 


ページ 3 のみ 表示 | ページ 9 のみ 表示 


ページ 5 のみ 表示 


ページ 2 のみ 表示 


34 


ページ 4 のみ 表示 


ページ 10 のみ 表示 


ページ 6 のみ 表示 


X 


35 


X 


ページ 9, 10 を 合成 表示 


ページ 5， 6 を 合成 表示 


X 


36 


X 


ページ II のみ 表示 


ページ 7 のみ 表示 | X 


37 


X 


ページ 9, II を 合成 表示 


ページ 5， 7 を 合成 表示 


X 


38 


X 


ページ 10, II を 合成 表示 


ページ 6, 7 を 合成 表示 


X 


39 


X 


ページ 9, 10, II を 合成 表示 


ページ 5， 6. 7 を 合成 表示 


X 


40 


X 


ページ 12 のみ 表示 


ページ 8 のみ 表示 


X 


41 


X 


ページ 9, 12 を 合成 表示 


ページ 5， 8 を 合成 表示 


X 


42 


X 1 ページ 10， 12 を 合成 表示 


ページ 6, 8 を 合成 表示 


X 


43 


X 


ページ 9, 10, 12 を 合成 表示 


ページ 5, 6， 8 を 合成 表示 


X 


44 


X 


ページ II, 12 を 合成 表示 


ページ 7, 8 を 合成 表示 


X 


45 


X 


ページ 9， II, 12 を 合成 表示 


ページ 5, 7, 8 を 合成 表示 


X 


46 


X 


ページ 10, II, 12 を 合成 表示 j ページ 6， 7， 8 を 合成 表示 


X 


47 | X 


ページ 9, 10.11， 12 を 合成 表示 | ページ 5. 6. 7, 8 を 合成 表示 


X 
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48 


全 ページ 表示し ない 


全 ページ 表示し ない 


全 ページ 表示し ない 


全 ページ 表示し ない 


49 


X 


ページ 13 のみ 表示 


X 


X 


50 


X 


ページ 14 のみ 表示 


1 ■ ■ ■ ■ 1 

X 


X 


51 


X 


ページ 13, 14 を 合成 表示 X 


X 


52 


X 


ページ ほの み 表示 


X 


X 


53 


X 


ページ 13, ほ を 合成 表示 


X 


X 


54 


X 


ページ 14, 15 を 合成 表示 


X 


X 


55 


X 


ページ 13， 14， 15 を 合成 表示 


X 


X 


56 


X 


ページ 16 のみ 表示 


X 


X 


57 


X 


ページ 13, 16 を 合成 表示 


X 


X 


58 


X 


ページ 14, 16 を 合成 表示 


X 


X 


59 


X 


ページ 13， 14, 16 を 合成 表示 


X 


X 


60 


X 


ページ ほ, 16 を 合成 表示 X 


X 


61 


X 


ページ 13， 15, 16 を 合成 表示 X 


X 


62 


X 


ページ 14， ほ， 16 を 合成 表示 X 


X 


63 


X | ページ 13, 14， ほ, 16 を 合成 表示 | X 


X 



この く アクア イブ ページ〉 と く ディスプレイ ページ〉 の 設定 は 気を付けな いと， 

間違って ページ を 設定したり， 書き込ん だはず なのに 表示 ページに なって いない 

などの ため， 思った 通りに 表示で きない ことがあります. 特に， 8 色 モードと 16 
色 モードに よって 指定で きる 値と その 意味が 異なる ことに 注意して ください. 
SCREEN 命令 を 実行す ると 現在 設定され ている ウイ ン ドウ， ビュー ポート， LP 

は 初期 状態に 戻されます （LP (Last Referenced Point) の 初期 状態 は ワールド 
座標， スクリーン 座標と も （0, 0) です). 

注意： 白黒 モード （高 分解能 白黒 モード を 含む） において， グラフィック 命令で 
〈パレ ッ 卜 番号〉 を 指定した 場合 は， 0 か 0 以外 かによ つて 黒 か 白 か を 判定 
します. また 〈パレット 番号〉 を 省略した 場合 は， カラ 一モードと 同様， 
現在 COLOR 文に よって 設定され ている 〈フォアグラウンド カラ一〉 のパ 

レット 番号が 採用され ます. その 際 も 0 か 0 以外の 判定に より 黒， 白 を 決 
定 します. 

8 色 モードの 例 

screen 0,0,0,1 
screen 0,0,2,17 

screen 3,0,0,1 

screen 3,0,1,17 

screen 2,0,0,1 

screen 2,0,1,2 

screen 2,0,2,7 

screen 1,0,3,9 
screen 1 ,0,4,10 

screen 1,0,5,15 



(200) 
(200) 
(400) 
(400) 



, ぺ 
, ぺ 



(200), 
(200), 
(200), 

(200), 



• 



ぺ - 




― ジ 





合成 表示 



合成 表示 
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SET (DISK モード) 



L 機 能 I ファイル 属性の セッ ト • リセット を 行います. 



□ 1) SET く ドライブ 番号〉， ぐ、 属性 文字つ 

2) SET く ファイル 番号〉， ぐ、 属性 文字つ 

3) SET# 〈ファイル 番号〉， ぐ、 属性 文字つ 



[^例 1 SET 1, 、マ' 



SET 、、2 ： NOTWRITE", やな 



SET#1， 、、FT 



M 説 I 



指定した ドライブ， ファイル 番号， フ アイ 



ザ 



ぐ 、属性 文字"〉 によって 指定 さ 



れた 属性 を 付けます. 属性 文字 は， P， R で 指定し， それぞれ， ライ トプ ロテク ト 
(書き込み 禁止）， リ一 ドア フタ一 ライト （書き込み 確認） の 属性 を 付けます • こ 



れ 以外の 文字が 属性 文字と して 指定され た 場合に は， 現在 設定され ている 属性 力 
全て 解除され ます. 



害 式 1) く ドライブ 番号〉 が 指定され た 場合に は， 指定され た ドライブの ディスク 

媒体に 対して 属性が つけられます. 

害 式 2) 〈ファイル 名〉 が 指定され た 場合に は， 指定され た ファイル のみに 属性が 

つけられ 同一 ディ スク 媒体 中の 他の ファイルに は その 影響 は 及び ませ 

ん. 

書式 3) 〈ファイル 番号〉 が 指定され た 場合に は， その ファイルが 開かれて いる 間 

だけ 指定され た 属性が 作用し ます. 



P 厲性を 付ける と， PRINT #， PUT, WRITE # 等の 書き込み 動作が 禁止され 
ると ともに， ファイルの KILL もで きなくなります. 

R 属性 を 付ける と， 書き込み を 行った 直後に 読み出し を 行い， 正しく 書き込み 
が 行われた かの 確認が される ようになります. 




照 ： ATTR$ 
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STOP 



プロ グラ 厶の 実行 を一 時 中断 します. 



rr 式 1 stop 



STOP 



STOP 文 は プログラムの 実行 を一 時 中断す るた めの もので， プログラムの どこ 
で 使用しても かまいません. STOP 文 を 実行す ると， 次の メッセージが 表示され 



ます, 



Break in 〈行 番号〉 



(〈行 番号〉 はス ト ップ した 行 番号です) 



END 文と 異なり， STOP 文 は ファイル を 閉じません. 

STOP が 実行され ると， BASIC は 常に コマンド レベルに 戻ります. また， 
CONT コマンド により プログラムの 実行 を 再開す る こ とがで きます. INPUT 文 
などの 入力 文の 途中で ス ト ップ した 場合， 継続す る こと はでき ません. 



参照： CONT, END 
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解 説 



STOP キーお よび CTRL-C キーに よる 割り込みの 許可， 禁止， 停止 を 制御し ます, 

1) STOP ON 

2) STOP OFF 

3) STOP STOP 



STOP ON 



書式 1 



以後 STOP キ 



れる ごとに ON STOP GOSUB 文に よって 設定され た 処理 ルーチンに 
分岐し ます. 

書式 2) 割り込み を 禁止し ます • 以後 STOP キー あるいは CTRL- C キ一 を 押し 

て も 割り込み 処理 ルーチンへの 分岐 は 起こ り ません （この 時 STOP キ一 
あるいは CTRL-C は 通常の 動作 を します）. 
書式 3) 割り込み を 停止し ます. 以後 STOP キ一 あるいは CTRL- C キ一 を 押し 

—チンへの 分岐 は 起こりません • 
しかし STOP ON 命令に よって 割り 込みが 許可され る と， 先程の STOP 
キ 一あるいは CTRL-C キー を 押した ことによ る 割り込みで 処理 ル―チ 
ンに 分岐し ます. 




参照 ： ON STOP GOSUB, KEY ON /OFF/STOP 




100 ON STOP GOSUB *BREAK 

110 STOP ON 

120 GOTO 120 

130 *BREAK 

140 PRINT "BREAK 

150 RETURN 
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SWAP 




2 つの 変数の 値 を 入れ替えます, 
SWAP く 変数〉， く 変数〉 
SWAP A$， B$ 




どの 型の 変数で も， SWAP 文に よりその 値 を 交換す る ことができます （整数， 
単精度， 倍精度， 文字， または 配列 変数). しかし その 2 つの 変数の 型 は 一致して 



いないと 、、Type mismatch" エラ一 が 起こ ります • 



^ン グプタ 



100 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 



• 2 つの K 列の 内容 を 人れ 換える 
DIM A( 10) ,B( 10) 
FOR 〖*1 TO 10 

A(I)=I*2:B(I)=I*3:GOSUB *PRINTAB 
NEXT I LOCATE O.Y+3 
FOR 1=1 TO 10 

SWAP A(I),B(I):GOSUB *PRINTAB 
NEXT I: し OCATE 0,Y+2 
END 

#PRINTAB 
X=POS(0):Y=CSRLIN 
LOCATE X,Y:PRINT USING "t##"; 
LOCATE X,Y+l:PRINT USING 
LOCATE X+5,Y 
ETURN 



B(I) 



run 



2 


4 


6 
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16 


18 


20 
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9 


12 
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24 


27 


30 
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12 
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4 
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18 


20 
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システム を ターミナル モードに します. 

TERM 、、〔COM ： 〕 〔く パリティ〉 〔く ビッ 卜〉 〔く ストップ ビッ 卜〉 〔く XON スィッチ〉 

〔く S ノ、 。 ラ メータ〉 〔く DEL コード 処理〉 〔く RET キー 処理〉 〔く 受信 c R コード 

処理〉 〔く 日本語 シフト コード 指定〉〕〕〕〕〕〕〕〕〕 〔， 〔く モード〉〕 〔， く リモート 
BASIC プロ ト コル 処理 用 領域の 大き さ〉〕〕 
TERM 、、COM ： E72X'、， 1000 

BASIC モードから ターミナル モードに 制御 を 移行し ます. ターミナル モード 
では， RS-232C ィ ンタ 一フェース を 介して 他の コンピュータ や 機器との 通信が 可 
能と なります. また， ターミナル モード 時に おいても， リモート BASIC プロ トコ 
ル によ り， N 88 -BASIC の 機能 を 利用す る ことができます • 詳しく は ユーザーズ マ 
ニュ アル を 参照して ください. 

最初の COM ： で コミュニケーション ポート を 使って 外部 機器との 入出力 を 行 
う こと を 宣言し ます. なお， COM ： は 省略す る ことができます 力 5 ， 省略した 場合 

は， 後に 続く すべての パラメ一 タを 指定し なければ なり ません. 
〈パリティ〉 は E， O, N で 表わし， それぞれ 偶数 パリティ， 奇数 パリティ， パ 

リ ティ 無し を 意味し ます. 

〈ビット〉 は， 1 文字 を 表わす のに 用いる ビット 数で， 7 または 8 で 指定し ます • 
7 を 指定した 場合に は， 必ず 〈パリティ〉 で 0 または E を 指定し なければ なり ま 
せん. また 8 を 指定した 場合に は く パリティ〉 は N でなければ なりません • 

〈ストップビット〉 は， ストップビット 数 を 決定し， 1， 2， 3 で 指定し ます • 
1 は 1 ビット， 2 は 1.5 ビット， 3 は 2 ビット を 意味し ます. 

〈XON スィッチ〉 は， XON/XOFF による 通信 制御 を うこと を 指定し， スィ 
ツチと して X が 指定され る と XONZXOFF 制御 を 行います. N が 指定され た 場 

合に はこ の 制御 は 行われ ません. 

く S パラメータ〉 は 〈ビット〉 に 7 を 指定した 時に， キャラクタ コード 128 以上の 
文字 （カナ 文字な ど） の 入出力が できなくなる の を 補助す る パラメータです • 指 
定は S または N で 行い， S を 指定した 時 入出力 可能で， N を 指定した 時 は 入出力 
不可能になります. 

く DEL コード 処理〉 は， 受信した DEL コードの 処理 方法 を 決定す る もので， B 
または N で 指定し ます. 
B が 指定され る と， BS コードに 変換され て BS コードと して 処理され ます • 
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N が 指定され ると， NUL コードに 変換され て NUL コードと して 処理され ま 
す. 

く RET キ一 処理〉 は， RETURN キ一 を 押した ときに 送信す る コード を 決定す る 
もので， C または L で 指定し ます. 
C が 指定され ると， C R コード を 送信し ます. 

L が 指定され ると， c R コードと LF コード を 送信し ます (C R , LF の 順に 送信 
します). 

〈受信 Cr コ一ド 処理〉 は， c R コード を 受信した ときの 動作 を 決定す る もので， 
C または L で 指定し ます. 

C が 指定され ると， 1 つの C R コードの 受信で， 復帰 動作と 改行 動作が 行われ ま 
す. 

L が 指定され ると， C R コードの 受信で は， 復帰 動作 だけが 行われ， Cr コード 
と LF コード を 連続 し て 受信 さ れた と き に， 復帰 動作 と 改行 動作が 行われ ま す. 

まりを 表示す る コード （KI コード） と 日本語 文字列の 終り を 表示す る コード （K0 
コード） を 決定す る もので， P または I で 指定し ます. 

P が 指定され ると， KI コード = (1B4B) 16 〔ESC.K に 相当〕， 

K0 コ一 ドニ （1B48) 16 〔ESOH に 相当〕 

が 使用され ます， 

I が 指定され ると， KI コード = (1A70) 16 〔SB.p に 相当〕， 

K0 コード = (1A71) 16 〔SB*q に 相当〕 

が 使用され ます. 

く モード〉 は， H または F で 指定し， それぞれ 半二重， 全二重 通信の モード を 意 
味し ます. 

く リモート BASIC プロ トコ ル 処理 用 領域の 大きさ〉 は， リモート BASIC プロ 
トコ ルを 利用す る 際に 用いられる 変数 領域の 大きさ を 決定し ます • 省略され た 場 
合 1024 に 設定され ます. 

ターミナル モードから BASIC モードに 戻る 時には， シフトキーと ストップ キ 
—を 同時に 押します. 

注意： く 変数 領域の 大きさ〉 を 除く すべての パラメータ は， 省略され た 場合， リセ 

ッ 卜した 時 （電源 投入 時 も 同様） に 設定され ていた メモリ スィッチの 値が 
採用され ます （メモリ スィッチに ついては， ユーザーズ マニュアル を 参照 

してく ださい）. また 途中の パラメータ を 省略して， 後の パラメータ を 指定 
する 場合 は， 省略記号 として ブランク ひ、 n を 指定し なければ なり ませ 



ん. 



ここで 使用す る 各 パラメータ は， 必ず 大文字 を 使って く ださい. 

ターミナル モード を RS-232C 第 2 回線お よ び 第 3 回線に 適用す る こと は 
でき ません. 



T 
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1) TIME$ ON 

2) TIME$ OFF 

3) TIME$ STOP 
TIME$ ON 

害 式 1) 割り込み 動作 を 許可し ます. この 命令 実行 後 は， 設定され た 時刻になる 

と 割り込みが 発生し， ON TIMES GOSUB 文に よって 定義され た 処理 
ル一 チンに 分岐し ます. 

書式 2) 割り込み 動作 を 禁止し ます. この 命令 実行 後 は， 割り込みが 発生し ませ 

ん. 

害 式 3) 割り込み 動作 を 停止し ます. この 命令 実行 後 は， 割り込みが 発生した こ 

と を 覚えて いる だけで， 処理 ル一 チンの 分岐 は 起こりません. しかし， 
TIME$ ON 命令に よ り 割り込みが 許可され る と， 先程の 割り込み によ 
つ て 処理 ル一チ ンへ 分岐 します. 

注意 ： プロ グラム 終了 時には TIMES OFF を 実^ 1 してく ださい. 

参照 ： ON TIME$ GOSUB, TIMES 

100 TIME$="07:25:00" 

110 ON TIME$="07:30:00 M GOSUB 140 

120 TIMES ON 

130 GOTO 130 

140 PRINT "TIME LIMIT" 

150 RETURN 100 



TRON/TROFF 



w~m プロ グラムの 実行 状態 を m します. 



TRON 
TROFF 
TRON 
TROFF 



M 説 I 



プログラムの デバッグの 助けと して， TRON 文 を 実行す ると， トレース フラグ 

が 立ち， 実行す る プログラム 行の 行 番号 を 表示し ます. それぞれの 行 番号 は 角力 
ッコで 囲まれ 表示され ます. トレ一 スフ ラグ は TROFF 文 （または NEW コ マン 

ド） を 実行す ると リセ ッ ト されます. 



^ぶ ダラ 之 



FOR 1=1 TO 3 
110 PRINT I, 
120 NEXT 

TRON 
Ok 

Run 



1 



2 



3 [120] 



Ok 

TROFF 

Ok 

Run 



2 



3 



Ok 
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VIEW 



ディスプレイ 画面 上での 表示 領域 （ ビ ュ ーポ一 卜 ） を 指定 します. 



3T VIEW (Sx lf SyJ — （Sx 2 ， Sy 2 ) 〔， く 領域 色〉〕 〔， く 境界 色〉〕 




VIEW (100, 30) — （200， 75)，， 7 




(S Xl , SyJ を 左上の 頂点， （Sx 2 , Sy 2 ) を 右下の 頂点と する， 才 
ーン 座標系 上の 長方形 を 図形 表示 領域と して 指定し ます. こ < 




ここでい う オリ ジナル 
スクリーン 座標と は， ビュー ポート 内に 展開され る スクリーン 座標で はなく， デ 
イス プレイ 画面の ドットと 1 対 1 に 対応して， WINDOW, VIEW により 変化す 
る ことのない 物理的な 座標の ことです. 以後， WINDOW により 指定され ている 
ワールド 座標系 上の 領域 内に 入る 図形 は， VIEW で 指定され た 領域 中に 表示され 



るよう になります. こ の 領域 は ビュー ポート （View Port) と 呼ばれ ま す. 



ワール ド座檷 系 



(Wxi.Wyi) 




ウィンドウ 






ノ (Wxp.Wy?) 



ディスプレイ 画面 



一 ン座襻 系) 



(Sxi.Syi) 








ビュー ポート 






(Sx 2i Sy 2 ) 



〈領域 色〉 が 指定され た 場合に は， 指定され たパ レツ ト 番号で ビュー ポート 内 を 
塗りつぶします. 

く 境界 色〉 が 指定され た 場合に は， 指定され たパ レツ ト 番号で ビュー ポートの 枠 

を 描きます • CLS によって 消去され る 画面の 範囲 は， この 枠に よって 囲まれた 中 
だけで， 枠 は 消される ことはありません. 

VIEW は， 図形の 表示 領域の 指定 を 行う だけで， 実際の 画面に 対する 操作 は 行 
いません ので， VIEW により ビュー ポート を 変更す る だけで， 以前の ビュー ポー 
ト 中の 図形が 移動す るよう な ことはありません. また， VIEW はすべ ての グラフ 
ィ ック 画面 表示の 対象範囲 を 指定され た 領域に 限定して しまい ますから， ビュー 
ポートの 外に 点 や 線 等 を 表示す る こと はでき なくなります. 

VIEW の 指定 を 変える だけで， 1 つの 図形 を 描く ルーチン でも， 画面 上の 異な 



S Xl <Sx 2 ， S yi <Sy 2 が 成り立たない 場合， あるいは これらの 座標が ディ スプレ 
ィ 画面から 外れて いる 場合に は， 、、Illegal function call" エラ一 となり ます. 

一度 設定され た ビュー ポート は， 次に VIEW 文 あるいは SCREEN 文が 用 レ 、 ら 
れ るまで 変化し ません • また VIEW は LP を ビュー ポートの 左上の 頂点に 設定し 
ます. 

注意： ワールド 座標系が ビュー ポート 内に 展開され るの は， WINDOW 文の 実行 
後で あり， VIEW のみ 実行して ウィンドウ は 初期 状態の ままで あれば， ビ 
ュ一 ポート 内の 座標 は， （ワールド 座標 ）= (スクリーン 座標） となります. 

参照 ： WINDOW, CLS， SCREEN 



100 SCREEN 0,0: CIS 2 

1 10 WINDOW(0,0)-(639, 199) 

120 GOSUB *RECT ' 

130 VIEW(1,1)-(319,198),0,7 

140 GOSUB *RECT 

150 VIEW(500,l)-(630,99),0,7 

160 GOSUB «RECT 

170 END 

180 *RECT 

190 LINE(50,50)-(600, 150) ,7 

200 RETURN 



BF 




V 
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WAIT 



サ ン プ I 
プロ グラム 



ほ g 



コンピュータの 入力 ポート を モニタす る 間， プログラムの 実行 を 停止し ます. 
WAIT く ポート 番号〉， 〈式 1> 〔， 〈式 2〉〕 
WAIT 1， &H22, &H22 




WAIT 文 を 実行す ると， 指定した 入力 ポートの ビッ ト パターンが 指定した 状態 

. 指定した ポートから 読み込んだ デ 




ータと 〈式 2〉 との XOR の 結果と 〈式 1〉 の AND が 取られます. もし その 結果 力 



、、 



0 (偽) なら， BASIC はもう 一度 ポートの 状態 を 読み込み 同じ 操作 を 繰り返し ま 
す. もし 結果が 0 でなければ （真)， プログラムの 実行 は 次の 文に 移ります. く 式 
2 〉 が 省略され た 場合 は 0 と 見なします. 

注意： WAIT 文の 実行に よ り 無限ループに はいって しまう 場合が あります. その 
場合に は コンピュータ を リセ ッ ト しなければ なり ません. 



100 • 一- random from key 

110 PRINT -Type # s # to 

120 WAIT &HE4,8,255 

130 f — START ― 

140 END 

n 

pe 's' to start. 



port 一一 
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-WEND 




条件が 満足され ている 間， 指定され ている 区間の 実行 を緣り 返します. 

WHILE 〈論理 式〉 



WEND 



文 m 



WHILE J<5 



WEND 



， 脱つ 



〈論理 式〉 が 真 （ 0 でない） である 間, 




行 を 繰り返します. 

く 論理 式〉 を 評価した 結果が 真で あれば， WHILE 文と WEND 文との 間にある 
文 を 順番に 実行し， WHILE 文に 戻ります. この 繰り返し は 〈論理 式〉 の 評価が 偽に 
なる まで 続けられ， 〈論理 式〉 が 偽になる と， WEND 文に 続く 文に 制御が 移り ま 
す. 最初に 〈論理 式〉 を 評価した 結果が 偽で あれば, WHILE 文と WEND 文との 間 
にある 文 は一 度 も 実行され ません. 

WHILE〜WEND 文 は FOR〜NEXT 文と 同 じ 様に 入れ子 構造に する ことが 
できます. この場合に は， それぞれの WEND 文 は， それ 以前の 最も 近くに ある 
WHILE 文と 対応す ると 解釈され ます. WEND 文 は， WHILE 文と 対に なり， ル 



サン ブル | 100 1-1 

プ。 グラム 1 110 WHILE K6 

120 PRINT I ；"-"； 

130 J=l 

140 WHILE J<=I 

150 PRINT J;:J-J+1 

1 60 WEND 
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各種 入出力 機器 や ファイル に対して 1 行の 長さ 等 を 指定し ます. 

1) WIDTH く朽 数〉 〔， く 行数〉〕 

2) WIDTH く ファイル ディスクリプタ〉， く サイズ〉 

3) WIDTH く ファイル 番号〉， 〈サイズ〉 

1) WIDTH 80， 25 

2) WIDTH "LPT 1 ： 'ヽ 80 

3) WIDTH #1， 100 

害 式 1) テキスト 画面に 表示す る 文字の 行数 を 指定し ます. 1 行 あたり 40 文字， 

また 80 文字の 〈桁 数〉 を 設定で きます. また く 行数〉 は 20 行か 25 行の ど 
ち ら かです. く 行数〉 を 省略 し た 場合 は 現在の 行数の ま ま で 変化 しません. 
書式 2) 〈ファイル ディスク リ プタ〉 で 指定され た デバイス に対して 1 行の 長さ を 

指定します. ここで 許されて いる デバイス は， コミュニケーション ポー 
ト と プリ ンタ です. 〈サイズ〉 の 値 は 0 から 255 まで 許されて おり 0 は 256 
と 解釈され ます. たとえば， この 命令が プリンタ に対して 実行され たと 
すれば， プリンタの 1 行に 印字され る 文字 数 は 〈サイズ〉 で 指定した も 
のとなります. このように プリンタ に対して 実行した 場合， WIDTH 
LPRINT と 同等の 機能 を 得る ことができます. 初期 状態で は 255 に 設定 
されて います. 

害 式 3) 〈ファイル 番号〉 で 割り当てられ ている バッファ （チャネル） に対して， 

その 大きさ を 〈サイ ズ〉 で 指定し ます. ここで 許されて いる デバイス は， 
コ ミ ュニケ 一シ ヨン ポー 卜と プリ ンタ です. サイ ズは 0 から 255 までの 値 
で 0 は 256 と 解釈され ます. 以後 この ファイル 番号 を 使って いる デバ ィ ス 
との 入出力 はこの 〈サイズ〉 単位で 行われます. 初期 状態で は 255 に 設定 
されて います. 

なお， コミュニケーション ポートに 対して WIDTH 命令 を 実行す ると， コミュ 
二 ケ一シ ヨン ポートに 対する データの 送出 時， 〈サイ ズ〉 で 指定され た 桁 数の 位置 
ごとに 改行 （CR) コード を 送出す る ことになります. 

参照 ： WIDTH LPRINT 
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LPRINT 




WIDTH LPRINT く 文字 数〉 
WIDTH LPRINT 80 

プリンタの 1 行に 印字す る ことので きる 文字 数 を 設定 します. 〈文字 数〉 で 指定 
する こ とので き る 値 は 0 から 255 までで， 0 は 256 と 解釈され ます • 

注意： 日本語 1 文字 は 文字 数 2 文字で カウント します • また， 日本語 文字列の 前 
後に は 文字 数で 4 文字 分の 制御コードが 挿入され ますので これ も 計算に 入 

れ なければ なりません. 
参照 ： WIDTH 



100 WIDTH "LPT: ",255 

110 WIDTH し PRINT 40 

120 FOR 1=33 TO 247 
130 し PRINT CHR$(I); 

140 NEXT I 
150 し PRINT: END 



！ ( )»+， - ノ0123456789： ； く-〉 7@ABCDEFGH 
I JK し MNOPQRSTUVWXYZ [ ¥ ド 一、 abcdefgh i Jkj_mnop 
qrstuvwxyz( I 广 ^m^^mM 1 1 ■■■■KHSH トー I lr 

1 U ハ^/ • rj 、 .ヲ アイ ゥ工 オヤ ュョ ツー アイ ゥェ 才力 キク ケコサ シス t ソタ 

チッテ トナニ ヌ》ノ ザ、 ヒフへ * マミ 厶 メモ ャ: z3 ラリ ルレ □ ワン | • = m 

•♦♦•OZnX 円 * 月日 晰 w 
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I 罾冑 I ビュー ポートに 表示す る ワールド 座標系 内の 領域 を 指定し ます. 

I 書式 I WINDOW (Wx い W yi )-(Wx 2f Wy 2 ) 
I 文例 I WINDOW ( — 300, -50) — (100， 70) 

I 解脱 I (W Xl , WyJ を 左上の 頂点， （Wx 2 , Wy 2 ) を 右下の 頂点と する ワールド 座標系 

上の 長方形で 囲まれた 領域 を， スク リーン 上の ビュー ポートに 表示す る 領域と し 
て 指定し ます • 以後， この 領域 内に 入る 図形 は VIEW で 指定され た 領域 （ビュー ポ 
—ト） 内に 表示され るよう になります. このよう にして 指定され た 領域 は， ウィン 
ドウと 呼ばれ， ちょうど カメラの ファインダ を 通して 景色 を 見た 時の 様に， ウイ 
ン ドウから 外れた 図形 は 表示され なくなります. また， ウィンドウの 大きさ を 変 
える ことにより， カメラの ズーミングの 様に， 視野に 入る 領域の 大きさが 変り， 
それが スク リーン 上の ビュー ポー 卜に 表示され るよう になり ます. 



ワールド 座檷系 




ディ ス ブレイ 画面 
(オリジナル スクリーン 座標系） 



(Sxi.Syi) 




[^ユ- ポ-ト 




(Sx2.Sy 2 ) 



WINDOW も VIEW と 同じ様に 領域の 指定 を 行う だけで， 実際の 画面に 対す 

る 操作 も 行いません ので， WINDOW により， ウィンドウの 設定 を 変更す る だけ 
で， ビュー ポ一 卜 中に 表示され る 図形 を 変化す るよう な ことはありません. また， 

誤って， 図形が 何も 描かれない 領域 を ウィンドウ として 設定す ると， スクリーン 

W Xl く Wx 2 ， W yi く Wy 2 が 成り立たない 場合， あるいは これらの 座標が ワール 
ド 座標系から 外れて いる 場合に は 、、IUegal function call" エラ一 となります. 
WINDOW で 指定す る 座標 は， ワールド 座標です から， 負の 値 や 実数 値 もとれる 
ことに 注意して く ださい. 

—度 設定され た ウィンドウ は， 次に WINDOW 文 あるいは SCREEN 文 が 用 レ 、 
られる ま で 変化 しません. また WINDOW は LP を ウィンドウ の 左上の 頂点に 設 
定 します. 
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注意： ワールド 座標系が ビュー ポート 内に 展開され るの は， WINDOW 文の 実行 
後で あり， VIEW のみ 実行して ウィンドウ は 初期 状態の ままで あれば， ビ 
ュ 一ポート 内の 座標 は， （ワールド 座標 ）= (スクリーン 座標） となります • 



参照 ： VIEW 



100 SCREEN 0,0:CLS 2 
110 C=l 

120 V1EW(200,50)-(400,150),,7 
130 WINDOW(-100,-100)-(i00,100) 
140 GOSUB *CIRC 
150 WINDOW(-100,-100)-(0,0) 

160 GOSUB *CIRC 

170 W1NDOW(0 9 0)-(100, 100) 

180 GOSUB *CIRC 

190 WINDOW (- 500, - 500) - （500, 500) 

200 GOSUB »CIRC 

210 END 
220 *CIRC 

230 CIRCLE(0 f 0),100,C 
240 FOR J=0 TO 1000： NEXT J 
250 OONCIS 2 
260 RETURN 




〇 
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WRITE 









式 




文 


例 



画面へ データ を 出力し ます. 

WRITE 〔く 式の 列〉〕 
WRITE I ♦ 上 K ； A$ 



^^^^L , , ' ^^^^^^^^^^^^ t 



〈式の 列〉 により 指定され た， 



く 式の 列〉 





. 式 は コンマ （，） あるい 



は セミコロン （：） により 区切ります. コンマと セミコロンと の 機能 上の 区別 は あ 
りません が， 画面 上に は， 各 式の 値の 区切りと して 必ず コンマが 表示され ます. 
BASIC は， 各 式の 値 を 出力した のち， 改行 を 行います. 
WRITE 文 は， ほぼ PRINT 文と 同 じ 様に 式の 値の 出力 を 行い ま す 力、 不要な 空 



白 桁 は 詰められ， それぞれの 式の 間 は 必ず コ： 



区切られます. また 文字列 は 



ダブル クオ一 テ一シ ヨンに） で 囲まれて 出力され ます. 



参照 ： PRINT, WRITE # 



プロ 



コ グラム"! 



100 AX=123 

110 BI-9.87654E+31 

120 C#=3. 14159265359# 

130 D$-"N88 - BASIC" 

140 PRINT AX;B!,C き 

150 WRITE AX;B! f C# 



;D$ 
;D$ 



run 

123 9.87654E+31 
123,9.87654E+31,3. 
Ok 




3. 

•-N88-BASIC 



-BASIC 
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WRITE # 



シー 




—タを 書き出します, 



WR ぼ E # 〈ファイル 番号〉 〔， く 式の 列〉〕 



文 SJJ WRH"E#1, I * J， K; A$ 




， 〈ファイル 番号〉 によ 

り 指定され た ファイルに 書き出します. 指定され た ファイル は 出力 用に オープン 
されて いなければ なりません. 〈式の 列〉 中の 各 式 は， コンマ （，） あるいは， セミコ 



ロン （ ： ） によって 区切る ことができます 



WRITE # は， 




， 不要な 空白 



桁 は 詰められ， それぞれの 式の 値の 間 は 必ず コ ン マで 区切られます （コ ンマ その も 
のが データ と して 出力され ます）. また 文字列 は ダブル クオ一 テ一シ ヨンに） で 囲 
まれて 出力され ます. 



WRITE # は， 各 式の 値 を 書き出した 後， 改行の コード を 書き出します. 〈式の 



列〉 が 省略され た 場合に は， 単に 改行の コードの みが 書き出されます. 

WRITE# は， 区切り 記号と して コンマ を 必ず 出力し， また 不要な 空白の 出力 は 
行わない ため， PRINT # に比べ ファイルの 使用 領域 を 節約す る こ とがで きます. 

注意 ： 出力 対象 フ ァ ィ ル が、、 SCRN ： 〃の 場合， 日本語 データ を 出力す る こと はで 
きません. 

参照 ： PRINT #， WRITE 



サン ブル 



100 
110 
120 
130 
140 
150 
160 



OPEN "DATA5" FOR OUTPUT AS 
INPUT "名前 ？ ",NA$ 
INPUT "番号 ？ M , NM 
INPUT "点 tt ？ ",P0 
WRITE #1 ,NA$,NM,PO 
CLOSE 



run 

？松沢 賺抬 

？ 23 
？ 99 



前 DTK 

名番点 g 
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ABS 



， 



A 



1* 


^1 


文 


例 



絶対値 を 与えます. 

ABS (く 数式〉） 
B=ABS ( — 2) 




〈数式〉 の 絶対値 を 返します. 

また， 〈数式〉 に 倍精度 実数が 含まれる 場合 は， 倍精度の 値 を 与えます が， 他の 
場合に は， 単精度の 値 を 与えます. 



プロ 



120 
130 
140 



点 m の距 《 を 求める 一一 

INPUT "点 1 の 座樣は ： X , Y " ； X 1 , 
I NPUT "点 2 の 座標 は ： X , Y •• ； X2 , Y2 
D=SQR(ABS(X1-X2)"2+ABS( Y!-Y2)"2) 

print:print "点 1 と 点 2 の は " 




D 



run 

1 の 座標 は ： X , Y? 100,500 
2 の 豳標は ： X , Y? 20,64 

点 1 と 点 2 の 距戴は 443.279 
Ok 
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AKCNV$ 



文字列の 中の 1 バイ ト系 文字 を 2 バイ ト系 日本語文字に 変換し ます. 

AKCNV$ (く 文字列" 

A$=AKCNV$(B$) 



， 税 1 



〈文字列〉 の 中の 1 バイ 卜 系 文字 を 2 バイ ト系 日本語文字に 変換し ます 



サン-' 


/ ル 


プ o グ 


ラム 



100 A$= "ィ D ハ 漢字 ABC 
110 PRINT AKCNV$(A$) 



run 

ィ ロハ 漢字 ABC 
Ok 
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ASC 



A 




例 



文字の キャラクタ コード を 与えます, 



L 書 式」 ASC (〈文字列〉) 



A = ASC(、、A々) 



〈文字列〉 の 最初の 文字の キャラクタ コード を 与えます 



参照 ： CHR$ 



さ 



ル 
ム 



100 



120 
130 
140 
150 
160 
170 
180 
190 



'一一 小文字 

INPUT A$ 

IF A$»' ,M THEN 



-> 大文字 変換 一一 
190 



FOR 1=1 TO し EN(A$) 

D$=M〖D$(A$, I , 1 ) :D=ASC(D$) 

IF D く 97 OR D>122 THEN B$=B$*D$:G0T0 

B$-B$+CHR$(D - 32) 

NEXT I 

PRINT:PRINT B$ 



run 
？ nec 
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ATN 




逆 正接 (アーク タン ジェ ント） を 与えます. 

；] ATN (〈数式〉） 



A = ATN(1) 



匸 





. 得られる 値 は，一； r/ 2 から ； r/2 まで 



の 範囲です, 



また， 〈数式〉 に 倍精度 実数が 含まれる 場合 は， 倍精度の 値 を 与えます が， 他の 
場合に は， 単精度の 値 を 与えます. 



I 100 に- ARCTAN から ARCSIN, ARCCOS を 求める 

1 ' T=180/3. 141 59： U1 $="#.###" :U2$= 

INPUT A 

IF ABS(A)>1 THEN 120 

IF ABS(A)=1 THEN AS= 1 . 5788 ： AC=0 ： GOTO 170 
AS=ATN(A/SQR(-A*A^1 )) 
AC= - ATN ( A/SQR ( - A*A+ 1 ) )+3. 14159/2 
DS=AS»T:DC=AOT 
PRINT '• Rad. 
PRINT "arcCOSC; USING U1$;A; rPRINT 
PRINT "arcSIN(";USING U1$;A; :PRINT 
END 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 



Deg . •' 

H ) ="； USING U2$;AC;DC 
M ) ="； USING U2$;AS;DS 



run 
？ .5 

arcCOS(0.500) 
arcSIN(0.500) 
Ok 



1.0472 
0.5236 



Deg. 
60.00 
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ATTR$ (DISK モード) 




文 



指定 ファイル， ドライブの 属性 を 与えます. 



I 害 式 I ATTR$ 



(く ドライブ 番号〉） 

(# く ファイル 番号〉〕 
(く ファイル 名〉） 



PRINT ATTR$(1) 



KMSM 



指定した ドライブ， オープンされ ている ファイル， ディスク 上の ファイルの 現 
在の 属性 文字 を 与えます. この 時， 属性 文字 は 以下の 意味 を 持ちます. 
、、口 属性 は 解除され ています. 即ち， 通常の リード， ライトが 可能な 状 

態です. 

、、ROET ： 書き込みの 際に， リー ドア フタ一 ライト （書き込んだ 内容と メモリ 上 

の 内容の 比較 チ ヱ ック） を 行い ま す. 
、、口 C1P〃 ： 書き込みが 禁止され ています. 



□ect ： p オプションが 指定され ています 



参照 ： SET 



193 



CDBL 



整数 値， 単精度 実数 値 を 倍精度 実数 値に 変換 し た 数値 を 与え ま す, 



rr 式 1 cdbl (〈数式》 



文 例 



A# = CDBL(B!Z2) 



〈数式〉 の 値 を 倍精度 実数 値に 変換し ます. ただし， 型変換が 行われる だけで 有 

効 桁 数の 変化が ありま せんから， 得られた 値の 精度 は， 変換す る 前の 型と 同じ （整 

数 型なら 整数 部の み， 




参照 ： CINT, CSNG 



100 - S 差の ない « 精度 実数への 変換 
110 A!=l . 23456 :GOSUB 150:GOSUB 210 
120 A! =123456! :GOSUB 150:GOSUB 210 
130 A!=l .23456E+08:GOSUB 150:GOSUB 210 
140 END 

150 A$-STR$(A) : Al 轉 -CDB し （A リ 
160 D=INSTR(A$ f ".") 

170 IF D=0 OR INSTR(A$,"E")<>0 THEN A2#=A1 #： RETURN 
180 D= し EN(A$) - D 

190 A2tt=INT(CDBL(A!M(TD+.5))/lCrD 
200 RETURN 

210 PRINT A! ,A1#;TAB(34);A2* 
220 RETURN 



run 

1 -23456 

123456 

1 .23456E+08 
Ok 



1 .234560012817383 

123456 

123456000 



1 .234558649701477 

123456 

123456000 
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CHR$ 



I 機 能 I 指定した キャラクタ コード を 持つ 文字 を 与えます, 



1* 




CHR$ (〈数式〉） 


文 


例 


A$ = CHR$(65) 



C 



〈数式〉 の 値の キャラクタ コード を 持つ 文字 を 与えます. 値が 0〜255 の 範囲に な 
い 場合 は， Illegal function call" エラ一 になります • 



参照 ： ASC 



サン ブル 
プログラム 1 



10 



120 
130 
140 
150 
160 
170 
180 
190 



'一一 大文字 一〉 小文字 変換 一一 
INPUT A$ 

IF A$=" M THEN 200 
B$= H •• 

FOR 1=1 TO し EN(A$) 

D$-MID$(A$, I , 1 ):D=ASC(D$) 

IF D<65 OR D>90 THEN B$=B$+D$: GOTO 180 

B$=B$+CHR$(D+32) 
NEXT I 

PRINT: PRINT B$ 
END 



run 

？ NEC PERSONA し COMPUTER 

nec personal computer 
Ok 
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CINT 



単精度 実数 値， 倍 精 





式 



文 例 



CINT (く 数式〉） 
A%=CINT(B#* 2) 



〈数式〉 の 値の 小数点 以下 を 




. 結果の 



値が一 32768〜32767 の 範囲に ない 場合 は， 、、Overflow ク エラ一 になります. 
参照 ： CSNG, CDBL 



100 
110 
120 
130 
140 
150 
160 
170 



' 小 ft 点 以下の 任. 意の 桁での 四捨五入 
A=l .23456 :D=2:GOSUB 140:GOSUB 170 
A=l. 23456 :D=3:GOSUB 140:GOSUB 170 
END 

IF A=INT(A) THEN AD=A: RETURN 

AD=CINT(A«10"D)/10"D 

RETURN 

PRINT A, AD 

RETURN 



run 



1.23456 
Ok 



1 .23 
1 .235 
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COS 



I 機 能 I 余弦 (コ サイ ン) を 与え ま す. 



^1 cos (く 数式〉) 



ぼ 例 



C = C0S(3.1415/2) 

〈数式〉 の 値に 対する 余弦 値 を 与えます. 〈数式〉 の 単位 は ラジアンです • 
また， 〈数式〉 に 倍精度 実数が 含まれる 場合 は， 倍精度の 値 を 与えます が， 他の 
場合に は， 単精度 を 与えます. 



C 



参照 ： SIN, TAN 



^ ン プル 



プ a グラベ 



100 



120 
130 



150 
160 
170 
180 
190 



• COS から S I N を 求める 

INPUT "角度 （度〉 ： -; D 

CS=COS(D/180*3. 1415962#) 

PRINT "COS"; USING H ###";D; :PRINT •• « 

PRINT "SEC"; USING "翁 *#"5DS 

IF ABS(CS)<=. 000001 THEN 180 ELSE SC 

PRINT '• = "； SC 

END 

PRINT " = 定義で きません 
END 



ti 



； CS 



1/CS 



run 

角度 （度〉 ？ 45 

COS 45 = .707106 SEC 45 = 1.41421 

Ok 
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CSNG 





式」 


文 


m 









整数 値， 倍精度 実数 値 を 単精度 実数 値に 変換 し た 値 を 与え ま す. 

CSNG (〈数式〉） 
A! = CSNG(B#) 

〈数式〉 の 値 を 有効数字 6 桁の 単精度 実数 型に 変換 します. 
その 値が— 1.70141E+38〜1.70141E+38 の 範囲に ない 場合 は， "Overflow" ェ 
ラーになります. 



参照 ： CINT, CDBL 



サ ン プール 1 
プ 0 グラム I 



120 
130 



100 ' 小数点 以下の 任意の 桁での 四捨五入 

A#= 1 . 23456789* ： D= 1 ： GOSUB 140:GOSUB 170 

AH=1 .23456789#:D=7:GOSUB 140： GOSUB 170 
END 

IF A 翁- INT (A#) THEN ADft=A»: RETURN 

AD*»=INT(A#»10"D+.5)/10"D 
RETURN 

PRINT A 輯， CSNG(AD#) 
RETURN 



150 
160 
170 
180 



run 

1 .23456789 
1 . 



1.2 
1. 
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CSRLIN 



im 能 i 現在の カーソルの 行 位置 を 与えます. 



コ CSRLIN 



Y = CSRLIN 



現在の 力一 ソルの 行 位置 を 与えます • 値の 範囲 は 25 行 モードで は 0〜24， 20 行 
モードで は 0〜19 となります. なお， 画面の 最上 行が 0， 最下 行が 24( または 19) 
となって います （POS 関数 参照). 



参照 ： POS 



プログラム I 



100 CONSOIE 0,25,0,0 

ビリヤードの シミュレーション 

1.2:PRINT STRING$(78,"# ")； 



)； 



150 
160 
170 
180 
190 
200 
210 
220 
230 



if 



:NEXT 

し OCATE 79, 2： PRINT •• 
： し OCATE 79, 23: PRINT 




120 し OCATE 1 ,2:PRINT 
130 LOCATE 1,23:PRINT STR1NG$(78," 
FOR I«3 TO 22: し OCATE 0,1： PRINT •• 
し OCATE 79, I ： PRINT 
し OCATE 0*2: PRINT 
し OCATE 0,23： PRINT 
F=l:X=RND(l)*77+l:C 

FOR X=X TO 78 
し OCATE XO,CO: PRINT •' "； 
IF CSR し IN-22 OR CSR し IN=3 THEN F=F*-1 
C=C+F: LOCATE X,C:PR1NT "き"；： XO=X:CO-C 

NEXT X 

FOR X=78 TO 2 STEP - 1 
し OCATE XO,CO: PRINT " "； 
IF CSRLIN-22 OR CSRLIN=3 THEN F=F»-1 
270 OC+F: し OCATE X,C:PR1NT X0=X: CO=C 

280 NEXT X 
290 GOTO 190 



it 



ii 
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EJ 文字列 を 数値 デ一 タ に 変換 し た 値 を 与え ま す. 



文 




1) CVI(〈2 文字の 文字列〉） 

2) CVS (く 4 文字の 文字列〉） 

3) CVD (く 8 文字の 文字列〉） 

1) A%=CVI (A$) 

2) B = CVS(、、A3BcT) 

3) C# = CVD(NUM$) 

ディスク 上の ランダム データファイル から 読み込んだ データ は， 文字 型に な 
つてい るた め， CVI， CVS, CVD 各 関数 を 使って， 数値 データに 変換し なければ 
なり ません. CVI は 2 文字の 文字列 (即ち 16 ビッ 卜の データ） を 整数 値に， CVS は 
4 文字の 文字列 を 単精度 実数 値に， CVD は 8 文字の 文字列 を 倍精度 実数 値に それ 



ぞれ 変換し ます. 




わかりやすく 整数 型で 説明す ると 次 



の 様になります. 



A$ 二、、 AB 〃の 場合， 即ち， A$ = CHR$(&H41)+CHR$(&H42) の 場合に は， 
CVI(A$) は， &H4241( = 16961) になります. つまり， キャラクタ コード を 数値 
データと みなす わけです. CVS， CVD の 場合 は， 各 キャラクタ コード を 浮動 小数 
点 形式の 数値 データと みなす ことになります. 

参照 ： MKI$， MKS$， MKD$ 



プ o グラム"! 



100 
110 
120 
130 
140 
150 
160 
170 



OPEN 
FIELD 
PRINT 
PRINT 
PRINT 



"RDATA" AS 翁 1 
«1,8 AS A$ 

"この プログラム で^み 込む データ は 

"MK I $/MKS$/MKD$ の 
"サンプル プログラムで 作られます 

GET #1, し AX-CVI(A$):PRINT AX 
GET #1,2:A-CVS(A$):PRINT A 
GET »1,3:A#=CVD(A$):PRINT A* 
CLOSE ： END 



run 



タ は 
の 

す 



Ok 



I $ ま 

デ D れ 

む K ら 

込 M 作 

み/で 

»$ム 

で S ラ 

ム K グ 

ラ Ma 

グ\ブ 

口 $ル S 

ブ I ブ メ 

の K ン 

こ M サ 9 ！ 
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DATE$ 









式 


文 


例 





付 を 与えます. 

DATE$ 

D$ = DATE$ 

DATES に は 常に 現在の 日付が 入れられ ており， いつでも その 内容 を 見る こ と 
がで きます. 

また DATE$ に は， YYZMM/DD (、、84/12 ノ 10〃 等） の 形で 日付 をセッ ト 
できます. 他の 変数に 代入した 場合 も， 同じ 形の 文字列が 代入され ます • 
ただし 年に 関して は DATE$ で 更新 しないと 変化し ません • 

注意 ： PC- 9800 シ リ 一ズ パーソナル コ ン ピュー タは バッ テ リ —バッ ク アツ プに 
より 常に 日付 を 更新して 正しい 日付 を 維持す るよう になって います • 従つ 
て 不用意に 日付 を 変える と， せっかくの 正しい 曰 付が こわされる ことにな 
り ます. 2 月 は 28 曰 単位で 更新され ますので， うるう年に ついては 2 月 29 

曰 以降 DATES による 日付の 再 設定が 必要です. 



D 



参照 ： TIMES 



サン ブ ノレ 



100 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



M 



' "85/12/21" ―〉 "21, Dec. 
DIM MONTH$(12) 
FOR 1=1 TO 12 

READ MONTH$(I ) 
NEXT I 

DATE$=" 85/ 12/21" 

GOSUB *TRNS 

PRINT DATE$; M -- > 
END 
*TRNS 

M$-RIGHT$(DATE$,2) 

M$， 

M$= M$+ •' • 1 9 •• + し EFT$ ( DATE$ , 2 ) 
RETURN 

DATA Jan t Feb , Mar , Apr , May f Jun 
DATA Ju 1 ， Aug , Sep • Oct , Nov ， Dec 



fl M 




2))) 



run 

85/12/21 -- > 12, Dec. 1985 
Ok 
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DSKF (DISK モード) 



I 機能 I ディスクの 諸元 を 与えます. 



\m 式 I DSKF (〈ドライブ 番号〉 〔， く 機能〉〕) 



PRINT DSKF(l) 



〈ドライブ 番号〉 で 指定され た ディスク に関する 情報 を 関数の 値と して 返し ま 

. く 機能〉 として 指定す る 値と， 





つてい ます. 



省略され た 時 ： ディスクの 残り 容量 を クラスタ 単位で 返す. 



0 ： 最大 トラック 番号 



5 ： ディレクトリ トラック 番号 



(= 片面 当りの 卜 ラック 数一 1) 6 ： 1 クラスタ 当りの セクタ 数 



1 ： 1 トラック 当りの セクタ 数 
2 ： ディ スク のサ一 フェイス 

(面) 数 一 1 



7 ： FAT の 開始 セクタ 番号 

8 ： FAT の 終了 セクタ 番号 

9 ： FAT の 数 



3:1 トラック 当りの クラスタ 数 10: ディスク 属性の 入って いる セクタ 番号 
4 ： ボリ ュ一ム 当りの クラスタ 数 




ドライブの 種類 や ディ レク ト リ， FAT 等に ついては， ユーザ一 ズ マニュアル を 
照して ください. 
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DSKI$ (DISK モード) 



ディスクからの 直接 読み出し を 行います. 



L 書 式 J DSKI$ ： く ドライブ 番号〉， 〈ヘッド 番号〉， 〈卜 ラック 番号〉， 〈セクタ 番号〉) 



S3 




D$ = DSKI$ (2， 1， 19， 1) 

通常の ファイル 操作 (OPEN, CLOSE など） と は 無関係に， ディ スク 上の 指定し 
た セクタから 直接 読み出 し を 行い ま す. 

DSKI$ は， その パラメータ により 指定され た セクタ 上に 書かれて いる データ 
256 バイ トを システム 用 バッファに 読み出す とともに， 最初の 256 文字の 文字列 を 

関数の 値と して 返します. 

文字列の 長さ は 255 文字まで しか 許されな いために， 関数の 値と して 256 バイ ト 
の データ 全て を 得る こと はでき ません. そこで， 通常の ランダム アクセスの 場合 
と同じように FIELD 文に よ り， システム 用バッ フ ァへ 複数の 文字列 変数 を 割り 
当てる ことによ り これ を 解決す る ことができます. ある レバ ま， VARPTR 関数に よ 
り， システム 用 バッファの 置かれて いる メモリ 番地 を 調べた 上で PEEK 関数に よ 



り バッファから データ を 読み出す こと もで きます. 

〈ヘッド 番号〉， く トラック 番号〉， 〈セクタ 番号〉 として 指定で きる 値の 範囲 は， 
指定され た 〈ドライブ 番号〉 の ディ スク ドライブの 種類に よって 異なり ます 力、 
BASIC は， これらの 値の 範囲 を 自動的に 調べ， 不当であった 場合に は 、、Bad 
track ノ sect or" エラーと します. 詳しく は ユーザーズ マニュアル を 参照して くだ 
さい. 



D 



参照 ： DSKO$， FIELD, DSKF， VARPTR 



y-a^t] 100 • read from the disk (direct) 一-一 

110 FIELD »0, 128 AS A$(0), 128 AS A$( 1 ) 

120 *START 

130 INPUT "Drive" ;DR 

140 IF DR<1 OR DR>8 THEN *START 

150 INPUT "Surface" ;SU 

160 IF SU<0 OR SUM THEN 150 

170 *ENTER 

180 INPUT "Track, Secter'MR.SE 

190 IF TR<0 OR TR>DSKF(DR,0) THEN *ENTER 

200 IF SE<0 OR SE>DSKF(DR, 1 ) THEN *ENTER 

210 DUMMY$= DSK I $ ( DR f SU , TR , SE ) 

220 *D〖SP 

230 FOR 1=0 TO 1 

240 FOR J=0 TO 7 

250 FOR KM TO 16 

260 D$=HEX$(ASC(MID$(A$( I ), J*16+K, 1 ) ) ) 

270 PRINT RIGHT$("0" + D$,2) に' " ； 

280 NEXT K:PRINT 

290 NEXT J, I: END 
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EOF 



I 機 能 I ファイルの 終了 コード を 与えます. 

I 書式 I EOF (く ファイル 番号〉） 

I 文例 I IF E0F(1) THEN CLOSE 1 : END 

I 解 説 I 〈ファイル 番号〉 で 指定され た ファイルが 終りに 達した かどう か を 調べる 関数で 

す. 関数の 値と して 終りに 達して いれば 真 （一 1)， そうでなければ 偽 （0) を 返し 
ます. く ファイル 番号〉 で 指定され た ファイル は 入力 モードで オープンされ ていな 
ければ なりません. 

指定 された フ アイ ルが RS-232C コミュニケーション チャネル （COM ： ) であ 
つた 場合に は， EOF 関数 は， ノ マツ ファが 空であった ときに 値 を 真と します. 



サンプル 



100 ' -一 data input 

110 OPEN "2:DATA5 M 

120 IF EOF") THEN 

130 INPUT 眷 1 ,A 

140 PRINT A 

150 GOTO 120 

160 CLOSE 



FOR 
160 



INPUT AS «1 



run 

1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
Ok 
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発生した エラーの エラー コード 及び エラーの 発生した 行 番号 を 与えます. 

ERL 
ERR 

IF ERL=100 THEN STOP 
IF ERR = 7 THEN STOP 

エラーが 発生した 時点で， システム 変数 ERR は エラ 一コード を， ERL は エラ 
—の 発生した 行 番号 を 持って います. 



参照 ： ON ERROR GOTO 



100 • —— X の Y 乗 を 求める —— 

1 10 ON ERROR GOTO *ERR0RTRP 

120 «START 

130 INPUT "X f Y M ;X t Y 

140 ANS=X"Y 

150 PRINT X: "の"； Y: "乗 は"： ANS; "です • •• 

160 GOTO *START 

170 PRINT "？? ？ 定 養で きません •'• 

1 80 END 

190 error routine —— 

200 *ERRORTRP 

210 IF ERR- 11 AND ER し- 140 THEN RESUME 170 

220 ON ERROR GOTO 0 



run 

X.Y? 2,3 
2 の 3 乗 は 8 です. 

X.Y? 10,4 
10 の 4 乗 は 10000 で す • 

X, Y? -1 ,3 

-1 の 3 乗 は- 1 で す • 
X,Y? 0,-1 

？?? 定義で きません. 
Ok 
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EXP 



[M 能 I e に対する 指数関数の 値 を 与え ま す, 



1S1 



EXP (く 数式〉) 



「文 例 I E = EXP(1) 



〈数式〉 の 指数関数の 結果 を 値と します, 



〈数式〉 に 




、 他の 場合に は 



単精度の 値 を 与えます. 



サン ブル 
プログラム 



100 • EXP か ら SINH (ハイ ノ、 • ブリック サイン） 

110 • COSH (ハイ パブリック コ サイン〉 を 求める 

120 INPUT D 

130 HS=(EXP(D)-EXP(-D) )/2:HC=(EXP(D)+EXP(-D) )/2 

140 PRINT "SINH";USING "刚 つ D パ PRINT •' = ";HS. 

150 PRINT "COSH"; USING "###"； D; ： PRI NT •• = ";HC, 

160 END 



3.62686 COSH 2 = 3.7622 
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整数 部 を 与えます. 

FIX (〈数式〉） 
F=FIX(B/3) 

く 数式〉 の 値の 小数点 以下 を 取り去った 値 を 与えます. 

FIX と INT の 違い は， く 数式〉 の 値が 負の 時に， INT は 〈数式〉 より 小さい 最大 
の 整数 を 返す のに 対し， FIX はたんに 小数点 部分 だけ をと り 去った 値 を 返す こと 
です. 

参照 ： INT 



100 '-- fix & int -- 
110 A=-2 

120 FOR 1=0 TO 9 
130 A=A+I«.3 

140 PRINT "A=":A,"FIX(A)-";FIX(A),"INT(A)=";INT(A) 
150 NEXT I 



run 
A=-2 
A=-l .7 
A= - 1,1 
A=-.2 
A= 1 
A= 2.5 
A= 4.3 
A= 6.4 
A= 8.8 
A= 11.5 
Ok 



FIX(A)=-2 
FIX(A)=-1 
FIX(A)=-1 
FIX(A)= 0 
FIX(A)= 1 
FIX(A)= 2 
FIX(A)= 4 
FIX(A)= 6 
FIX(A)= 8 
FIX(A)= 11 



INT(A)=-2 
INT(A)=-2 
IN 丁 （A)= - 2 
INT(A)=-1 
INT(A) 露 I 
INT(A)= 2 
INT(A)= 4 
INT(A)= 6 

INT(A) 霧 8 
!NT(A)= 11 
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FPOS 



フ アイ ル 中での 物理的な 現在 位置 を 与え ま す. 

FPOS (く ファイル 番号〉） 
HEAD = FP0S(4) 

Lfe 〈ファイル 番号〉 によって 指定され た ファイルが 最後に 読み書きした 位置 を 返し 

ます. 

指定され た ファイルが ディスク ファイルの 場合に は， 最後に 読み書き した セク 
タの 番号 を 返します • この 番号 は ヘッド 0， トラック 0， セクタ 1 を 0 番 とした 

通し番号で 与えられます. 
指定され た ファイルが プリ ンタ であった 場合に は， プリ ンタ のへ ッ ドの 位置 を 

与えます. この 値 は LPOS が 返す 値と 同一です. 
参照 ： し OC, し POS 
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メモリ の 未使用 領域の 大 きさ を 与えます. 

FRE (く 機能〉） 
PRINT FRE(O) 

FRE は， BASIC の 利用 可能な メモ リ 領域の うちの， 未使用 領域の 大 き さ を 関数 
値と して 返します. く 機能〉 は， 0， 1， 2， 3 の 値 をと り， それぞれの 場合に 返 
される 関数 値の 意味 は 次の とおり です. 

0 ： 未使用 変数 領域の バイ ト数. 単純 変数お よび ストリングの 領域と して 使 

用 可能な 領域の 残り バイ ト 数です. 
1 ： 未使用 テキス 卜 領域の バイ 卜 数. プログラム テキス トを 入れる ための 領 
域の 残り バイ 卜 数です. 

2 ： 未使用 変数 領域と 未使用 テキス ト 領域の バイ ト数. 

3 ： 配列 データ セグメントの 未使用 領域の バイ 卜 数. 

〈機能〉 が 0 または 2 の 時 は， FRE 関数 は， ストリング 領域の 整理の ための、、 ち 
り 集め〃 処理 を 必ず 行います ので， 関数が 値 を 返す までに 時間が かかる ことがあ 
り ます. 
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HEX$ 



10 進数 を 16 進数に 変換し， その 文字列 を 与えます. 

HEX$ (〈数式〉） 
A$ = HEX$(X) 



〈数式〉 の 値 を 16 進数に 変換して， その 文字列 を 与える 関数です. 〈数式〉 の 値 
は，一 32768 から 32767 (または 0 から 65535) までの 範囲に なければ なりません. 



参照 ： VA レ OCT$ 



苓。 グラム 1 



100 
110 
120 
130 
140 
150 
160 
170 



PRINT '• -0 - 1 - 2 - 3 - 4 -5 - 6 

FOR 1=0 TO 9 
PRINT STR$(I);"- M ; 
FOR J=0 TO 9 
PRINT RlGHT$("0"+HEX$(mO + J)，2) 

NEXT J 

PRINT 
NEXT I 
END 



-7 -8 -9 



•• tl 



run 





-0 


- 1 


- 2 


- 3 


一 4 


- 5 


- 6 


-7 


- 8 


- 9 


0 - 


00 


01 


02 


03 


04 


05 


06 


07 


08 


09 


1- 


OA 


0B 


OC 


0D 


0E 


OF 


10 


11 


12 


13 


2 - 


14 


15 


16 


17 


18 


19 


1A 


IB 


1C 


ID 


3 - 


IE 


IF 


20 


21 


22 


23 


24 


25 


26 


27 


4 一 


28 


29 


2A 


2B 


2C 


2D 


2E 


2F 


30 


31 


5- 


32 


33 


34 


35 


36 


37 


38 


39 


3A 


3B 


6 - 


3C 


3D 


3E 


3F 


40 


41 


42 


43 


44 


45 


7 - 


46 


47 


48 


49 


4A 


4B 


4C 


4D 


4E 


4F 


8- 


50 


51 


52 


53 


54 


55 


56 


57 


58 


59 


9- 


5A 


5B 


5C 


5D 


5E 


5F 


60 


61 


62 


63 



Ok 
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INKEY$ 




e 
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* 


式 


は 


例 1 


「解 





キーが 押されて いれば， その 文字 を， キー 力 < 押されなければ ヌル ストリング を 与 
えます. 

INKEY$ 

A$ = INKEY$ 

キ —ボード バッファが 空で あれば， INKEY$ 関数 は ヌル ス ト リ ング （空の 文字 

歹 IJ) を 返します. キ一 入力に より キーボード バッファが 空で ない 場合に は， バッフ 

ァの 先頭から 1 文字 取り出し， その 文字 を 返します. 

なお， CTRL-C, STOP キ一 は INKEY$ 関数に よって 拾う こと はでき ません. 
また 押された キ一 は 画面 上に は 表示され ません. 



ル 
ム 



100 PRINT "Enter any key to end … " 

110 » し OOP 

120 A$=INKEY$ 

130 IF A$= " M THEN 化 OOP 

140 PRINT A$ 

150 IF A$="E H OR A$="e" THEN *EXIT ELSE » し OOP 

160 *EXIT:END 



run 

Enter 

n 

8 

8 



any key to end 



H 




i basic 



INP 



入力 ポートから 値 を 得ます, 

INP (く ポー 卜 番号〉） 



^ 例， A = INP(15) 



〈ポート 番号〉 で 指定され た 入力 ポートから 8 ビッ トの データ を 読み取り， それ 
を 関数 値と します. く ポー ト 番号〉 として 指定で きる 値の 範囲 は 0 から 32767 までで 

す. 〈ポート 番号〉 と 装置との 対応 は 各 本体に 添付され ている ユーザ一 ズマニ ユア 

ルを 参照して ください. 



参照 ： OUT 



^ > %^ I 100 PRINT "Type 'e' key to end 
1 … * し OOP 

IF 1NP(&HE2)=223 THEN END 

9 We have to dummy read 
• to clear the key buffer. 
150 DUM$=INPUT$(1):PRINT DUM$ 
160 GOTO « し OOP 



120 
130 



run 

Type 

a 

b 

c 

d 

e 

Ok 



'e' key to end 
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INPUT$ 




man 




, 与えます. 



I 害 式 I INPUT$ (く 文字 数〉 〔， 〔#〕 〈ファイル 番号〉〕) 

WORD$ 二 INPUT$(6， #2) 



〈ファイル 番号〉 によって 指定され た ファイルから 〈文字 数〉 分の 文字列 を 読み出 
します. く ファイル 番号〉 が 省略され た 場合に は， キ 一ボードから 入力が 行われ ま 



すが, 





リーンに は 表示され ません. 



けます 力、 既に 



INPUT$ はお 

バッ ファに 入力 済みの データが ある 場合に はバッ ファ 中から 文字 を 拾って きま 

す. また INPUT$ は， STOP キ一， CTRL-C を 除く すべての 文字 を そのまま 読み 

出 し ますので， INPUT 文 や LINE INPUT 文で は 入力す る こ とので きない 改行 
文字 等 も 入力す る ことができます. 



参照 ： INPUT, LINE INPUT 
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INSTR 



K — ^^^^ い 




□ 




位置 を 与えます. 



D INSTR (〔〈数式〉，〕 〈文字列 1〉， く 文字列 2〉) 



L 文 例」 J = INSTR(A$， 、丁) 



〈文字列 1〉 の 中から 〈文字列 2〉 を 探し， みっかれば 発見した 位置 を， 見つから 
なければ 0 を 値と して 返します. 

〈数式〉 は 捜し 始める 位置 を 指定し ます. もし 省略した 場合 は 〈文字列 1〉 の 最初 
から 捜し 始めます. 

く 文字列 2〉 に 、、" (空の 文字列） を 指定す ると， 〈数式〉 と 同じ 値 を 返します. 



サンて 


r ル 


ブ0グ 


ラム 



100 '-- alphabet search -- 

1 10 A$="abcdefghi jklmnopqrstuvwxyz" 

120 A し P$=INPUT$( 1 ) 

130 A し P-ASC(A し P$) 

140 IF A し P>64 AND A し P<91 THEN A し P-A し P+32 
150 A=I NSTR ( A$ , CHR$ ( A し P ) ) 

160 IF A=0 THEN PRINT ALP$ ；" は アルファベット ではありません 
170 PRINT ALP$;" は M :A;" * 目の アルファベットです" 

180 END 



run 

S は 19 番目の アルファベットです 
Ok 
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；] I NT (〈数式〉) 



文 例， PRINT INT(1.123) 



〈数式〉 の 値 を 超えない 最大の 整数 を 与えます 



参照 ： FIX, CINT 



プロ 



"ブラ 



ル 
ム 



100 • 整数と 実 

110 A$(0)= M 

120 A$(l )-•• 

130 F し G=0 

140 INPUT A 

150 IF A 

160 PRINT A; 
17 



の 区別 



で 
で 



す" 
す" 



THEN F し G-1 
は -; A$(FLG) 



run 
？ 123 

123 は 整数です 
Ok 
run 

？ 88.995 

88.995 は 実数です 
Ok 
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JIS$ 



(DISK 




ド) 



女— 



本 語 文字 を 漢字 コー ドで 与えます. 



D Jis$ (〈文字列〉) 



A$ 二 JIS$(B$) 




〈文字列〉 の 最初の 2 バイ ト 
この 関数 は， 日本語文字 を 漢字 コードで 与える ための ものです が， 最初の 1 バ 



ィ トが 日本語 コードと して 妥当な 値の 場合， 後続の 1 バイ トを 含めた 最初の 2 バ 
ィ トを 16 進 表記 4 桁に 変換し， 妥当で ない 場合 最初の 2 バイ トを 16 進 4 桁の 文字 
列に 変換し ます. 

〈文字列〉 の 内容が 2 バイ ト 以下の 場合 は， "Illegal function ca 『エラーに なり 
ます. 



サン ブル 
プログラム 



100 PRINT JIS$(KM1D$ ("漢字"， 2,1)) 



n 4 

u 4 k 

r 3 o 
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文 例 




文字列の 中の 曰 3 



KACNV$ (〈文字列〉) 
A$ = KACNV$(B$) 




〈文字列〉 の 中の 1 バイ 卜 系 英数 カナ 文字 は 変換せ ず， 2 バイ ト 系の 日本語文字 
を 1 バイ ト 系 英数 力 ナ 文字に 変換 します. 
なお， 日本語 文字列 中の KIZKO コード はすべ て 取り のぞきます • 



サン 7 メレ 



100 A$= "イロ ハ A B C " 
110 PRINT KACNV$(A$) 




， 




217 



KEXT$ (DISK モード) 



^^^^ , : + , ^^^^^^^^^^ 



文 例 



文字列の 中から 1 バイト 系 英数 カナ 文字 だけ， あるいは， 2 バイト 系 日本語文字 
だけの どちら か を 抜き出して 与えます. 



1Q KEXT$ (く 文字列〉， く 機能〉) 



A$ = KEXT$(B$, 1) 



〈機能〉 指定が、、 (T なら 〈文字列〉 の 中の 1 バイ ト系 英数 カナ 文字 だけ 抜き出し， 
なら 2 バイト 系 日本語文字 を 抜き出します. この 時， KIZKO コード は 抽出 
されません， 

く 機能〉 で 指定した タイプの 文字が 無い 場合に は 、、"（空の 文字列） を 与えます- 



サンプル 
1 ログ ラム 



100 A$= M ABCai ^DEF" 

1 1 0 K I $=CHR$ (&H1B) +CHR$ (&H4B): KO$=CHR$ (&H1B) +CHR$ ( &H48 ) 
120 PRINT KI$+KEXT$(A$,l)+KO$ 



run 
漢字 
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KINSTR (DISK モード) 




日本語文字 を 含む 文字列の 中から 指定した 文字列 を 捜し， その 文字の 位置 を 与え 
ます. 

；] KINSTR (〔く 数式〉,〕 〈文字列 1〉， 〈文字列 2〉） 
^~^n J = KINSTR(3 f A$， 、、東京〃） 

I 解脱 I 〈文字列 1〉 の 中から 〈文字列 2〉 を 探し出し， 見つかれば 発見した 位置 を， 見つ 

からなければ 0 を 値と して 返します. 

〈数式〉 は 捜し 始める 位置 を 指定す る もので (捜し 始める 位置 は， 文字 数 （日本語 
も 1 文字と して 数える） で 表し， KI/KO コード を 文字 数に 含めます)， 省略した 
場合 は， 〈文字列 1> の 最初から 探し， く 文字列 1〉 の 文字 数より 大きな 値なら 0 を 

値と して 返します. 

〈文字列 2〉 が 、、〃 （空の 文字列） の 場合 は 〈数式〉 と 同じ 値 を 返します. 

100 K INPUT A$ 

110 B-KIN5TR(A$," 港 区"） 

120 IF B< >0 THEN PRINT "港 区" ELSE PRINT "港 区 以外" 

130 GOTO 100 

北 区 赤 羽 8 丁目 
港 区 南 青山 6 丁目 

Break in 100 
Ok 




都以都 

京 区 京 

束 港 東 港 
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KLEN 



(DISK 




ド) 



2 




KLEN (〈文字列〉 〔， 〈機能〉〕) 
N = KLEN(A$ f 0) 



〈機能〉 で 指定した タイプの 文字の 数 を 与える もので， 〈機能〉 として は 次の もの 
を 指定し ます. 

0 …… 全体の 文字 数 （日本語文字 は 2 バイ トで 1 文字. KIZKO コード を 含 



1 

2 

3 
4 



みます） 

1 バイ ト系 英数 カナの 文字 数 

2 バイ 卜 系 日本語の 文字 数 （KIZKO コード は 含みません) 
2 バイ ト系 全角 文字の 文字 数 
2 バイ 卜 系 半角 文字の 文字 数 



5 …… KIZKO コードの 数 



〈機能〉 を 省略した 場合 は 0 と 解釈され ます. 



コグラ 



プ a グラム 



100 A$-"ABC 漢字 DE 日本 H" 

HO PRINT KLEN(A$,0),KLEN(A$,1),KLEN(A$,2),KLEN(A$,5) 
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KMID$ 



(DISK 




ド) 



K — ^^^^ 




□ KMID$ (〈文字列〉， く 式 1> 〔， く 式 2〉〕) 



K$ = KMID$(A$, 4， 3) 

〈文字列〉 の 〈式 1〉 番目の 文字から 始まる く 式 2〉 文字 を 与えます • ここでの 文字 

数 は， 1 バイト 系 英数 カナ 文字 は 1 バイト を 1 文字と し， 2 バイト 系 日本語文字 

および KIZKO コード は， 2 バイ トを 1 文字と して 数えます • 

〈文字列〉 の 文字 数 力 《式 1〉 より 小さい 場合 は， 、リ' (空の 文字列） を 与えます • 
く 式 2〉 を 省略した 場合 や， 〈文字列〉 の 〈式 1〉 番目の 文字から 右の 文字 数が 〈式 

2〉 よ り 小さい 場合 は， 〈文字列〉 の 〈式 1〉 番目より 右の すべての 文字列 を 結果と し 

て 与えます. 



プ o 



ル 
ム 



100 
110 
120 
130 
140 
150 
160 
170 



A$="ABC 漢字 DEF M 

B$=" " ： C$= " •• 

FOR 1=1 TO K し EN(A$,0) 

T=KTYPE(A$,I) 

IF T=0 THEN B$=B$+KMID$(A$,1,1) 
IF T=l OR T ま 2 THEN C$=C$+KMID$( A$ 

NEXT 

PRINT B$, 



I 




run 

ABCDEF m 字 

Ok 
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KNJ$ 



(DISK 




ド) 




漢字 コード 文字列 4 桁 を 日本語 1 文字に 変換して 与えます. 



「書 ^ KNJ$ (く 文字列》 



^ 例 1 KNJ$(、、4E7A り 





卞 



の 時， 文字列の 



内容が 次の 条件に 当てはまらな レ 、場合 に は， illegal function call" エラ一 になり 
ます. 

(1) 文字列が 4 桁 以上 

(2) 4 桁の 文字に 0〜 9, A〜F の 範囲の 文字 

(3) 4 桁の 文字の 組み合わせが， 漢字 コードの 範囲 あるいは KIZKO コード 



^。ン グ やよ 1 100 PRINT KNJ$("1B4B")>KNJ$("3441")+KNJ$("1B48") 



run 

漢 

Ok 
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KTYPE (DISK モード) 



I 機 能 I 日 本 語 を 含む 文字列の 中の 指定 位置の 文字の タ ィ プを 与え ま す， 

I 書 式 I KTYPE (く 文字列〉， く 式〉） 
I 文例 I T = KTYPE(A$ f 5) 

I 解 脱 I 〈文字列〉 の 〈式〉 番目の 文字の タイプ を 次の 順で 与えます. 

0 …… 1 バイ ト系 英数 カナ 文字 
1 …… 2 バイ ト系 全角 日本語文字 
2 …… 2 バイ ト系 半角 文字 
3 …… KI コード 
4 -… K0 コード 

く 式〉 の 値が 0 または 文字列の 文字 数より 大きな 場合 は， "Illegal function call" 
エラーになります • < 文字列〉 が、、" （空の 文字列） の 場合 も， "Illegal function cal 广 
エラーになります. 



—ブ 丑 



ル 
ム 



100 A$-"ABC 漢字 DE" 

110 FOR 1=1 TO KLEN(A$, 

120 PRINT KTYPE(A$ t I); 

130 NEXT 



run 

0 0 
Ok 



0 3 1 14 0 0 
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LEFT$ 



□ 




I 書 式 I LEFT$ (〈文字列〉， 〈数式》 



B$ = LEFT$(A$， 4) 



〈数式〉 は 0 から 255 の 範囲に なければ なりません. 〈数式〉 が， く 文字列〉 の 総 文字 
数 以上の 場合 は， 〈文字列〉 のす ベて を 結果と します. 〈数式〉 が 0 ならば， 空の 文 

字 列 を 結果と します. 



プログラム I 



100 ' 文字列 （ 1 0 文字〉 の 左 回転 

110 INPUT A$ 

120 FOR 1=1 TO 10 
130 PRINT A$ 

140 B$-LEFT$(A$,1) 

150 A$=M1D$(A$,2)+B$ 

160 NEXT I 

170 END 



run 

？ 1234567890 

1234567890 

2345678901 

3456789012 

4567890123 

5678901234 



7890123456 
8901234567 
9012345678 
0123456789 
Ok 
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LEN 



I 機能 I 文字列の 文字 数 を 与え ま す. 

I 書 式 I LEN (く 文字列〉） 
I 文例 I PRINT LEN(A$) 

I 解説 I 出力され ない 文字 や 空白 も 数えます. 出力され ない 文字と は キャラクタ コード 

で 0 から 31 までの， 通常 コント ロール コード と 呼ばれる もの をい います. 



L 
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LOC 




I 書 式 I LOC (く ファイル 番号〉) 



文 例 



LAST = L0C(2) 



[ 




口 



〈ファイル 番号〉 で 指定 



合に は， LOC 関数 は， 





つた 場 



ル に対して 最後に 読み書き （GET/ 




PUT) された レコードの レコード 番号 を 返します. 

〈ファイル 番号〉 で 指定され た ファイルが， シー 
あった 場合に は， その ファイルが オープンされ てから， 読み書き された レコード 
数 を 返します. 

指定され た フ アイ ルが RS-232C コミュニケーション フ アイ ル であった 場合 
に は， LOC 関数 は， 割り込み によって 受けつ けられ， 入力 バッファ 中に たまって 
いる 文字 数 を 値と して 返します. 読み取り 動作 （INPUT #， INPUT$ 等） が 行われ 
ずに， 割り込み による RS-232C チャネルからの 受信が 続く と， やがて バッファが 
—杯に なり エラ一 となり ます， 

指定され た ファイルが キ 一ボード ファイルであった 場合に は， LOC 関数 は キー 
ボー ド からの 割り込み によって 受けつ けられて， キ 一ボード バッファに たまって 

いる 文字 数 を 返します. 



100 OPEN "DATA6" AS #1 

110 FIELD #1 .20 AS A$,8 AS B$ 

120 INPUT "名 W":NA$:INPUT "綠 与-; KY 眷 

130 し SET A$=NA$:RSET B$=MKD$( KY# ) ： PUT #1 

140 PRINT NA$; " さんの データ は"； AKCNV$(STR$ (し 0C( 1 

150 INPUT "Continue?(Y/N)";C$ 

160 IF C$="y" OR C$="Y H THEN PR I NT: GOTO 120 

170 IF C$="n" OR C$-"N" THEN END ELSE 150 



番 です'' 



run 

9? 益 田 文 
？ 155000 

文さん のデ 

Continue?(Y/N) N 

Ok 




—タは 1 * です 
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ファイルの 大きさ を 与えます. 

LOF (くフ アイ リレ 番号〉） 
MAXREC 二 L0F(2) 

〈ファイル 番号〉 により 指定され た ファイルが ディスク ファイル である 場合に は， 
LOF 関数 は その ファイルの 大きさ を セクタ 数で 返します. この 値 は， ファイルが 
ラム ダム ファイル であれば， その ファイルの 最大 レコード 番号に 相当し ます. 

指定され た ファイルが RS-232C コ ミュニ ケ一シ ヨン • ファイル である 場合に 
は， LOF 関数 は， バッファの 残り バイト 数 を 返します. 
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LOG 




Ul 能 I 自然対数 を 与えます. 



LOG (く 数式〉) 



匚文 @LJ PRINT LOG (35/9) 




く 数式〉 によつ 

また， 〈数式〉 に 倍精度 実数が 含まれる 場合 は， 倍精度の 値 を 与えます が， 他の 
場合に は， 単精度の 値 を 与えます. 



参照 ： EXP 



サン プ メレ 
プログラム 



120 
130 
140 
150 
160 
170 



常用対数 を 求める 

A- し OG(10) 

F$="Logl0(#«.##### ) 

INPUT し 
A= し OGU0) 
B= し 0G (し） 

PRINT USING F$; し， B/A 
sJD 



un 

100 
ogl0( 
k 

un 



1 .00000E+02)= 2.00000E+00 



09 



10( 1.24500E-01)»-9.04831E- 



r 7 し o r 7 



o 
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LPOS 




ME1 



現在の プリ ンタ のへ ッ ド 位置 を 与えます, 

LPOS (〈式〉） 



「文 例 I LPOS(O) 




〈式〉 の 値 は ダミーで あり 意味 を 持ちません （ただし， 省略で きません) 



参照 ： WIDTH LPRINT 



プログラム I 



100 WIDTH "し PT に'， 255 

110 FOR 1=0 TO 20 

120 IF し POS(0)->40 THEN し PRINT 

130 LPRINT SQR(I), 

140 NEXT I 

150 END 



0 

1.73205 
2.44949 

3 

3-4641 

3.87298 

4.24264 



2 

2.64575 
3.16228 
3.60555 
4 

4.3589 



1 .41421 
2.23607 
2.82843 
3.31662 
3.74166 
4.12311 
4.47214 
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MAP 



B — ^^^^ + 



スクリーン 座標， ワールド 座標の 相互 変換 を 行います, 



；] MAP (く 数式〉， く 機能〉) 



L 例] SY1 = 




1) 



〈数式〉 で 指定され る スクリーン 座標 あるいは ワールド 座標 を， く 機能〉 の 指定に 
従い， 対応す る ワールド 座標 あるいは スクリーン 座標に 変換し ます. 

〈機能〉 は 変換の 種類 を 指定し， 0 から 3 までの 値 をと り， それぞれ 次の 意味 を 
持ちます. 

0: 〈数式〉 を ワールド 座標系に おける x 座標と みなし， これ を 対応す るス 



ク リーン 座標系での x 座標に 




(Wx ― Sx) 



1: 〈数式〉 を ワールド 座標系に おける y 座標と みなし， これ を 対応す るス 
クリーン 座標系での y 座標に 変換し ます. （Wy — Sy) 

2 ： 〈数式〉 を スクリーン 座標系に おける x 座標と みなし， これ を 対応す る 
ワールド 座標系での x 座標に 変換し ます. （Sx — Wx) 

3: 〈数式〉 を スクリーン 座標系に おける y 座標と みなし， これ を 対応す る 
ワールド 座標系での y 座標に 変換し ます. （Sy — Wy) 

MAP 関数 を 用いれば， ワールド 座標から スク リーン 座標の 変換が できます か 
ら， GET 文 や PUT 文の ように， スクリーン 座標で 位置 を 指定す る 操作の 場合に 
も ワール ド 座標 を 変換して 指定す る こ とがで きます. 



MAP 関数 は， 変換の 結果が スクリーン 座標系 ある レ 
ら 外れても エラ一 にならない ので 注意して く ださい. 
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ル 
ム 



100 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 



270 



290 
300 



World く 一一 > Screen 
SCREEN 0,0 

WINDOW(-100,-100)-(100,100) 

PRINT TAB(5):"Wlndow(- 100, -100 卜 （100, 100)" 

PRINT TAB(5);"Vlew(0,0)-(639, 199) M 

PRINT "において W0RLD< —— >SCREEN の 変換 を 行 I 



PRINT 
GENTRY 

PRINT 
PRINT 



ま す 



1" 
2" 



"World 一- > Screen 
"Screen -- > World 

ANS 

IF ANSOl AND ANS< >2 THEN »ENTRY 

INPUT "Coordinate -っ CO 

IF ANS- 2 THEN *WFR0MS 
PRINT "WX :";C0, M SX *";MAP(CO,0) 
PRINT "WY :";C0,"SY ;MAP(C0, 1 】 
GOTO GENTRY 
*WF0RMS 
PRINT "SX :";CO t "WX 
PRINT "SY : H ;C0,"WY 
GOTO *ENTRY 



M ;MAP(C0 f 2) 
"； MAP(C0,3) 



run 

Window (- 100, -100) - （ 100, 100) 
Vlew(0,0) - （639, 199) 
において W0RLD< —一 >SCREEN の 変換 を行レ 



ま す 



World -- > Screen ： 
Screen 一一 > World ： 
？ 1 

Coordinate =? 0 
WX ： 0 SX = 

WY ： 0 SY = 

World -- > Screen ： 
Screen -- > World ： 
？ 2 

Coordinate =? 100 
SX ： 100 WX = 

SY ： 100 WY = 

World -- > Screen ： 
Screen 一一〉 World ： 
？ 

Break in 200 
Ok 



1 

2 



320 
100 
1 

2 



68.701 1 

.5025! 

1 

2 
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MID$ 



文字列の 中 か ら 任意の 長 さ の 文字列 を 与え ま す. 

MID$ (〈文字列〉， く 式 1> 〔， く 式 2>〕） 

PRINT MID$(A$, 2， 3) 

〈文字列〉 のく 式 1 〉 番目の 文字から 〈式 2 〉 桁の 文字列 を 与え ま す • 

〈式 2〉 は 0 から 255 の 範囲， また， く 式 1〉 は 1 から 255 の 範囲に なければ なり ま 

せん. 

また， 〈式 2〉 を 省略した 場合 や， く 文字列〉 の 〈式 1〉 番目の 文字から 右の 文字 数 
力 《式 2〉 より 小さい 場合 は， 〈文字 歹 U〉 の 〈式 1〉 番目より 右す ベての 文字列 を 結果 
とします. 

く 文字列〉 の 文字 数が， 〈式 1〉 より 小さければ， MID$ 関数 は， 空の 文字列 を 与え 
ます. ' 



参照 ： RIGHT$， LEFT$ 



サン ブル 

プ a グラム 



100 ' -- break of string -一 

110 INPUT A$ 

120 PRINT A$ ；" = "； 

130 FOR 1=1 TO し EN(A$) STEP 

140 PRINT MID$(A$，I,2);" + 

150 NEXT 

160 PRINT CHR$(8):CHR$(8); 

170 END 



2 
» 



n h 



run 

？ 1234567890ABCDE 

1234567890ABCDE = 12 + 34 + 56 + 78 ♦ 90 + AB + CD ♦ E 

Ok 
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各 数値 を 内部 表現に 対応した 文字 コー ドに 変換し ます. 

1) MKI$ (〈整数 表記〉） 

2) MKS$ (〈単精度 表記〉） 

3) MKD$ (〈倍精度 表記〉） 

1) A$ = MKI$(128) 

2) LSET B$ = MKS$(1.23) 

3) RSET C$ = MKD$(3.141592654#) 



これらの 関数 は， 数値 を ランダム ファイル バッファ に対して LSETZRSET 
命令で 書き込む 際に 使用し ます. 数値から 文字への 変換 は 数値が 持つ 内部 表現 （2 
進数 表現） の 値 を そのまま それに 対応す る 文字コードに する ことによって 行われ 



ます. こ 




います. 



害 式 1) 整数 値 を 2 文字 （2 バイ ト） の 文字列に 変換し ます. 
書式 2) 単精度 数値 を 4 文字 （4 バイ 卜） の 文字列に 変換し ます • 
書式 3) 倍精度 数値 を 8 文字 （8 バイ 卜） の 文字列に 変換し ます. 



注意： 




参照 ： CVI， CVS, CVD， STR$ 



100 OPEN "RDATA" AS 肴 1 

110 FIELD #1,8 AS A$ 

120 AX«987: し SET A$=MKI$( AX) :PUT *1 

130 A!«123.456:LSET A$-MKS$( A! ) :PUT #1 

140 A»-1234567891234»: し SET A$=MKD$( A») :PUT «1 

150 PRINT "この ブ CI グラムで 嘗き 込む データ は 

160 PRINT "CVI/CVS/CVD の 

170 PRINT ' 'サン ブル ブロ グラムで はみ出せます 

180 C し 0SE:END 



run 

この プログラムで 香き 込む データ は 

CV1/CVS/CVD の 

サン ブル プログラムで R み 出せます 

Ok 
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OCT$ 



I 



10 進数 を 8 進数に 変換し， その 文字列 を 与えます, 



OCT$( 〈数式〉） 
PRINT OCT$(A) 



く 数式〉 の 値の 範囲 は一 32768 から 32767( または 0 から 65535) までです 



参照 ： HEX$ 



100 
110 
120 
130 
140 
150 
160 



1 0 進 一一 > 8 進 一一 > 1 6 進 変換 

FOR 1=0 TO 16 



DE$=RIGHT$(" 
0C$=RIGHT$(" 
HE$=RIGHT$(" 
PRINT "DEC I MA し 
NEXT I 



STR$( I ) ,3) 
0CT$( I ) .3) 
"+HEX$( I ) ,3) 
DE$， "OCTAL 



M 



•• ； HE$ 



run 



DEC I MA し 


： 0 


OCT A し 2 


0 


HEX 


： 0 


DEC I MA し 


： 1 


OCT A し： 


1 


HEX 


: 1 


DEC I MA し 


： 2 


OCT A し： 


2 


HEX 


: 2 


DEC I MA し: 


： 3 


OCT A し： 


3 


HEX: 


t 3 


DEC IMA し: 


4 


OCTAl^ 


4 


HEX 


i 4 


DEC I MA し: 


•• 5 


OCTAL: 


5 


HEX: 


i 5 


DEC I MA し: 


： 6 


OCTAL: 


6 


HEX 


: 6 


DEC I MA し: 


： 7 


OCT A し 2 


7 


HEX: 


f 7 


DEC I MA し: 


！ 8 


OCT A し 2 


10 


HEX: 


： 8 


DEC I MA し : 


： 9 


OCT A し： 


11 


HEX: 


： 9 


DEC I MA し: 


： 10 


OCT A し： 


12 


HEX: 


i A 


DEC I MA し: 


： 11 


OCT A し： 


13 


hex: 


： B 


DEC I MA し: 


： 12 


OCT A し： 


14 


HEX: 


: C 


decimal: 


； 13 


OCT A し r 


15 


hex: 


： D 


DEC I MA し: 


： 14 


OCT A し： 


16 


HEX: 


： E 


DEC I MA し: 


： 15 


OCT A し： 


17 


hex: 


F 


DEC I MA し: 


： 16 


OCTAL s 


20 


HEX: 


'• 10 



Ok 
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PEEK 





o 



I 書 式 I PEEK (〈番地》 
L 文 fJJ A 二 PEEK(&H100) 



P 




〈番地〉 に は DEF SEG 文で 指定した ベース アドレスからの 相対 ァ ドレス を 指定 
します. 



参照 ： CLEAR, DEF SEG, POKE, VARPTR 
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PEN 





ライ 卜 ペンからの 情報 を 与えます. 



L 害 式」 PEN (〈機能〉) 



文 例， X = PEN(1) 




ライ 卜 ペンが， 

ライ ト ペンからの 情報に は， ライ ト ペンが 押され， 光 を 感じた 瞬間の もの （ト リ 




ガ センス） と ライ ト 



り， く 機能〉 の 値に よって 次のように 異なります. 

PEN(O) ： ト リガ センス 



ベ ルセ ンス） 力 《あ 



ペンが 押され， 光 を 感じたら 真 （一 1) を， ペンが 押され， 光 を 感じな 
いと 偽 （0) を 与えます. この 関数 は， 一度 真になる と ON PEN 
GOSUB 文で 定義され ている 割り込み 処理 ルーチンに 入る まで その 値 
を 保持し， 処理 ルーチンに 入った 時， 偽と なります. 



PEN(l) ： レベル センス 



ペンが 押され 光 を 感じて いる 限り， 現在 ペンが 動作して いる キャラ ク 
タ 座標の 水平 座標 を 与えます. 



PEN (2) ： 



ペンが 押され 光 を 感じて いる 限り， 現在 ペンが 動作して いる キャラ ク 
タ 座標の 垂直 座標 を 与えます. 



注意： 〈式〉 の 値 はこ こで 示す 0〜 2 までで， それ 以外 は エラ一 となります. また 




サンプル 



参照 ： ON PEN GOSUB, PEN ON/OFF/STOP 



100 SCREEN 0,1: CONSOLE ,,,1 

110 COLOR 0,7:CLS 2 

120 PEN ON: ON PEN GOSUB *PENSUB 

130 GOTO 130 

140 *PENSUB:PRINT "X:";PENU),"Y 

150 RETURN 



•i 



； PEN(2) 



run 
X： 26 
X： 55 
Ok 



Y: 3 
Y: 14 
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POINT 



Last Referenced Point (LP)(7Mi を 与えます. 



I 書 式 I POINT (〈機能〉) 



LX = POINT(0) 




□ 



最後に グラフ ィ ック 操作の 行われた 座標 (LP) を 〈機能〉 の 指定に よ り， スク リー 
ン 座標 あるいは， ワールド 座標で 与えます. 

〈機能〉 は 0 から 3 の 整数 値 をと り， 
意味 は 次のと おりです. 





0 ： 最後に グラフ ィ ック 操作の 行われた 点の X 座標 を ワールド 座標系 上の 値に 

変換して 返す. 

1 ： 同じく Y 座標 を 返す. 

2 ： 最後に グラフィック 操作の 行われた 点の X 座標 を， スクリーン 座標系 上の 

値に 変換して 返す. 
3 ： 同じく Y 座標 を 返す. 

最後に 操作の 行われた 座標が ウイ ン ドウの 外であった 場合に は， POINT 関数 
の 返す 座標に 対応す る 点 は， 画面 上に 表示され ていない 点で ある ことに 注意して 



ください. また この 時， スクリ 一 ： 




は， ビュー ポ一 卜 外になる ことに 注意して ください 



参照 ： POINT 文 



サ 
プロ 



ル 
ム 



100 
110 
120 



150 
160 
170 



SCREEN 0,(MCLS 3 ： GOSUB *PRINTIP 
PSET(100,100):GOSUB »PRINT し P 
WINDOW(-100,-100)-(100,100) 
PSET(50,50):GOSUB *PR1NTLP:END 
*PRINTLP:PRINT:PRINT "World coordinate 

PRINT "X » M ;POINT(0)."Y » 

PRINT "Screen coordinate: 

PRINT M X = H ;P0INT(2) f "Y ="； 
RETURN 



H 



II * 



X 




0 


Y 




0 


X 


= 


0 


Y 




0 


X 




100 


Y 




100 


X 




100 


Y 




100 


X 




50 


Y 




50 


X 




479 


Y 




149 



Ok 
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〔2〕 POINT 



^^^^^ - ^^^^^^^^一 ^ 



スクリーン 座標 上の 指定され た 座標に 表示され ている ドッ 卜の 色 を 与えます. 



I 書式 I POINT(Sx， Sy) 



C = P0INT(473， 120) 



(Sx，Sy) により 指定され た スクリーン 座標 上に 表示され ている ドッ 卜の 色をパ 
レツ ト 番号で 返します. また， 指定され た 座標 (Sx, Sy) が ビュー ポートの 外に あ 



る 場合に は， POINT 関数 は— 1 を 返します. 

座標 は スクリーン 座標で 指定す る ことに 注意して ください. 白黒 モードの 場合 
に は， POINT 関数 は， リセ ッ ト （黒） または セッ ト （白） をドッ 卜の 色と して 返し ま 

す. 



サンプル 



100 
110 
120 
130 



150 
160 
170 



190 
200 
210 
220 
230 



• -- change color painting -- 

DEF FNX=RND»639:DEF FNY-RNDM99 
DEF FNC=INT(RND*7+1 ) 
SCREEN OUS 3 

• -- circle paint -- 

FOR 1=1 TO 20 
X=FNX:Y=FNY:R=RND*80+20:C=FNC 
CIRCLE(X,Y),R,7:PAINT(X,Y),C,7 

NEXT I 

• -- change color -- 

FOR 1=1 TO 50 
X=FNX ： Y=FNY ： OFNC ： CC= POINT (X.Y) 
IF COO OR CC=C THEN 240 
PAINT(X,Y) ,C,7 

NEXT I 
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POS 



テキス 卜 画面 上の 現在の カーソルの 水平 位置 を 与えます. 



U pos (く 式〉) 



rir 例 I p=pos(o) 



式 は ダミーです （省略す る こと はでき ません). 
与え られる 値 は キヤ ラ ク タ 座標の 水平 位置です, 



参照 ： CSRLIN 



ル 
ム 



100 FOR 1=32 TO 255 

110 IF POS(0)=>32 THEN PRINT 

120 PRINT CHR$(I); H "； 

130 NEXT I 



run 
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X は 



RIGHT$ 




L 害 式 J RIGHT$ (〈文字列〉， 〈数式〉) 



PRINT RIGHT$(A$， 4) 




〈数式〉 の 値 は 0 から 255 までの 範囲に なければ な り ません. 
〈数式〉 の 値が 0 ならば， RIGHT$ は 空の 文字列 を 値と します • 

〈数式〉 が 〈文字列〉 の 文字 数よ り 大き ければ， く 文字列〉 のす ベて を 値と します 



参照 ： LEFT$， MID$ 



100 • 文字列 （ 1 o 文字〉 の 右 回転 

110 INPUT A$ 

120 FOR 1=1 TO 11 

130 PRINT A$ 

140 B$=RIGHT$(A$ f 1 ) 

150 A$-B$+MID$(A$,1 , し EN(A$) - 1 ) 

160 NEXT I 

170 END 



run 

0123456789 
9012345678 
8901234567 
7890123456 
6789012345 
5678901234 
4567890123 
3456789012 
2345678901 
1234567890 
0123456789 
Ok 
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RND 



1 機 能 I 乱数 を 与えます. 



rr 式"] rnd 〔(〈数式〉)〕 



文 @|] R = RND(1) 



1S1 



0 以上 1 未満の 乱数 を 与えます. 発生す る 乱数 は， RUN 及び CLEAR が 実行 さ 
れる ごとに 同系 列 を 取り ます. ただし， RANDOMIZE 文に よって その 系列 を かえ 
る こと もで きます. 

発生され る 乱数 は 〈数式〉 の 値に よって 次のように 異なります. 

〈数式〉 が 負の 場合 —— 乱数 系列 を 初期化し ます. 

く 数式〉 が 0 の 場合 —— 1 つ 前に 発生した 乱数の 値 をと り ます. 

〈数式〉 が 正の 場合 —— 次の 乱数 を 発生し ます. 



R 



〈数式〉 が 省略され た 場合 は 正の 値と して 次の 乱数 を 発生し ます 



参照 ： RANDOMIZE 



5 ロング %_ 



ル 
ム 



100 
110 
120 
130 



150 
160 
170 



• 乱数の 検定 

DIM SUM(6) 
FOR 1=1 TO 100 

SUM(DA)=SUM(DA)+1 
NEXT I 

FOR 1=1 TO 6 

PRINT I;"-";SUM(I) 
NEXT I 



M M II 



run 




1 一 


22X 


2 - 


13% 


3 - 


19% 


4 一 


17% 


5 - 


11% 


6 - 


18% 


Ok 
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SEARCH (DISK モード) 



機 能 I 任意の 配列 変数の 要素の 中から 指定され た 値 を 捜し出し， その 要素の 順位 を 与え 




ます. 

SEARCH (く 配列 変数 名〉， 〈整数 表記〉 〔， く 開始 ナンバー〉〕 〔， く ステップ 値〉〕) 
=SEARCH(A%， 100， 0, 3) 




〈配列 変 

を 捜し， 最初に 見つかった 要素 ナンバー を 返します. 指定され た 値が その 配列 変 

数 内で 見つからなかった 場合 は一 1 を 値と して 返します. 

配列 変数 名〉 は 整数 型の 一次元 配列で なければ ならず， また この 配列 変数 は 
SEARCH 関数の 実行に 先だって DIM 文に よって 宣言され ていなければ な り ま 

せん. 

〈整数 表記〉 は 配列 要素の 中から 抽出したい 値 を 指定し ます. もちろん この 値 は 
整数で なければ ならず， もし 実数 を 指定した 場合 は 整数 化してから 実行し ます. 

〈開始 ナンバー〉 と 〈ステップ 値〉 は オプション であり 省略 可能です. 〈開始 ナンパ 
―〉 に は， 配列 内の データの どこから 捜し 始める か を 指定し ます. 省略した 場合 は 
配列 内 データの 最初から 捜し 始めます. ただし， この 値 は 現在 OPTION BASE に 
よって 設定され ている 添字の 大きさに よって 異なります. 



く ステップ 値〉 を 指定した 場合 は その ステップ を もって サーチし ます. 省略し/： 
場合 は 1 が 採用され すべての 要素に ついて サーチす る ことにな り ます. 



SEARCH は ラン 



アイ ルのィ ンデ ックス の サーチ や GET 



PUT@ で 用いる 配列 データの サーチな どに 使う ことができます. 



242 






100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 



の点數 



1),ITEM$(3) 
ITEM$(I):NEXT 



260 
270 
280 
290 
300 
310 
320 
330 





DATA 国 S , » 学 ，英 
' 出席 番号と 各 料 
DATA し 87, 34, 56 
DATA 3,96,85,29 
DATA 5,85,38,68 
DATA 2,75,97,54 
DATA 4,49,95,84 



N=5: ITEM=4 
DIM INDEXX(N#ITEM 
FOR 1=1 TO 3 ： READ 
FOR 1=0 TO N - 1 

FOR J=0 TO ITEM - 1 
READ INDEXX(I*ITEM+J) 

NEXT J 
NEXT I 

GENTRY 

INPUT "出席 餮号 （ 1 一 5 〉 "，SN 
FAC-SEARCH ( I NDEXX , SN , , I TEM ) 
IF FAO - 1 THEN 280 
FOR 1=1 TO 3 

PRINT I TEM$ ( I ) , I NDEXX ( FAC+ I ) 
NEXT I 

PR I NT: GOTO GENTRY 



run 



* 号 （ 1 一 5 ) 1 



* 号 （ 1 一 



56 

5 ) 
75 
97 



2 



番号 （ 1 一 5 ) 5 





怖 S8 学 BB «s 学 B 席 S 学 S 

出国 數英 出国 數英 出国 ft 英 




出 ；《* 号 （ 1 一 5 〉 

Break in 280 
Ok 



SGN 



機 




1 畲 


式 


文 


例 




解 


鋭 



符号 を 調べます. 

SGN (く 数式〉） 
PRINT SGN (A) 

〈数式〉 が 正の 場合 は 1 を， 〈数式〉 が 0 の 場合 は 0 を， く 数式〉 が 負の 場合に は 
-1 を， それぞれ 与えます. 



プログラム 1 



100 

110 
120 
130 



150 
160 
170 
180 
190 
200 
210 
220 
230 



SCREEN 0,0:CLS 3 
し INE(0,100) - （639,100),1 
X=5 

FOR 1=0 TO 31 .42 STEP .05 

ON S+2 GOSUB »PLUS，》ZERO，wMINUS 
X=X+1 
NEXT I 
END 
«P し US 

PSET(X,50) ,5:RETURN 
*ZERO 

LINE(X,50)-(X, 149) ,5:RETURN 
*MINUS 
PSET(X,149),5:RETURN 
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SIN 



機 


能 


正弦 (サイン） を 与えます. 




式 


SIN (〈数式〉） 


1 文 


例 


PRINT SIN(l) 



〈数式〉 の 値に 対する 正弦 値 を 与えます. 〈数式〉 の 単位 は ラジアンです • 
〈数式〉 に 倍精度 実数が 含まれる 場合 は， 倍精度の 値 を 与えます が， 他の 場合に 
は， 単精度の 値 を 与えます. 



参照 ： COS, TAN 



プログラム I 



100 • C 0 S E C を 求める 

110 PI=3. 14159 

120 F$= M cosec(### # )=###. 

130 INPUT "角度 ヽ D 

140 R=D MOD 180 

150 IF R=0 THEN PRINT "定義 出来ません'' 

160 C=1/SIN(R/180*PI) 

170 PRINT USING F$;D,C 

180 END 



S 



:END 



run 

角度 

cosec( 

Ok 
run 

角度 60 

cosec( 60 
Ok 



)= 2.00000 



)= 1.15470 
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SPACE$ 




u 任意の 長さの 空白 文字列 を 与え ま す. 



[W d SPACE$ (〈数式〉) 



5 钶 



PRINT SPACE$(10) ； "ABC" 



〈数式〉 の 数 だけの 空白 を もった 文字列 を 与えます. その 値 は 0 から 255 までの 範 
囲に なければ なりません. 



参照 ： SPC 



纩グ V よ 1 100 • -- square curve -- 
1 110 FOR I--6 TO 6 

1 20 A$- •• I •• +SPACE$ ( ABS (I*I))*"* H 

130 PRINT A$ 

140 NEXT I 

150 END 



run 



Ok 
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SPC 



run 

BAS 

BAS 

BAS 

BAS 

BAS 

BAS 

BAS 

BAS 

BAS 

BAS 

BAS 

Ok 



I C イン 
I C イン 
I C イン 
I C イン 
I c インタ 
I c インタ 
I c インタ 
I c インタ 
I c インタ 
I c インタ 
I c インタ 



リタ Personal Computer 
リタ Personal Computer 
リタ Personal Comp u t e r 
リタ Personal Comp u t e r 
リタ Personal Comp u t e r 

リタ Personal Computer 

リタ Personal Computer 

リタ Personal Computer 

リタ Personal Computer 

リタ Personal Comp u t e r 

リタ Personal Comp u t e r 



I 機能 I 任意の 数 だけ 空白 を 出力し ます. 

I 畲 式 I SPC (〈数式〉） 

し 文 例」 PRINT SPC(IO) ； A$ 





： 用す る ことができ 



ます. 



〈数式〉 の 値 は ，—32768 から 32767 まで 許され ますが， 負の 数 はすべ て 0 と 見なさ 
れ ます. また 正の 数の 場合で も， 現在の 水平 表示 文字 数 以上の 場合 は， 〈数値〉 を 
そ の 水平 表示 文字 数で 割 つた 余り を 値と しま す. 



参照 ： SPACE$， TAB 



リタ-; SPC( 1); "Personal Computer 
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SQR 




平方根 (ス ク ェ アール 一 卜 ） を 与え ま す. 




SQR (く 数式〉) 
A = SQR(2) 



説 1 



〈数式〉 で 指定され た 値の 平方根 を 与えます. 

〈数式〉 に 倍精度 実数が 含まれる 場合 は， 倍精度の 値 を 与えます が， 他の 場合に 
は 単精度の 値 を 与えます. 



サンプル 1 
プロ グラム | 



00 



20 



f -- Square root table -一 

PRINT •• くく SQUARE ROOT TABLE >> 

FOR N=0 TO 10 

PR I NT "N=";N,"ROOT(N) ュ"； 
PRINT USING "き 翁 •IMHHHrjSQRIN) 

NEXT N 



SQUAf 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



i ROOT TABLE >> 



R00T(N)= 


0. 


00000 


R00T(N)= 


1 - 


00000 


ROOT(N)« 


1 . 


41421 


ROOT(N)» 


1. 


73205 


ROOT(N)» 


2. 


00000 


ROOT(N) 薦 


2. 


23607 


R00T(N)« 


2- 


44949 


ROOT(N)- 


2. 


64575 


ROOT(N)« 


2. 


82843 


ROOT(N)- 


3. 


00000 


ROOT(N) 置 


3. 


16228 



n < 

u く M II II II II II II I 一 II II 一一 k 

r NNNNNNNNNNNO 
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STR$ 



\M 能 I 数値 を 表す 文字列 を 与えます. 



書 式 | STR$ (〈数式》 



r^t 例 



A$ = STR$(123) 



〈数式〉 の 値 は 整数 型と 



型 (倍精度， 単精度) の 数値 型に 有効です • 
注意 ： STRINGS 関数 と 区別す る こと • 



参照 ： VAL, STRINGS 



[) 



o 

0 
0 
0 
0 
0 



00 ： 00 ： 00 から 佾 定 した 秒数 たけ 

Jjfi した 時点の 時刻 を 文字列で^ め々 A ,、q、 

DEF FNST$(A$)=RIGHT$( M 0 M +RIGHT$(A$,LEN(A$)-1) t2) 

INPUT "秒數 ： "，SS 
H=SS¥3600 ： M= ( SS-H*3600 )¥60 

S=SS MOD 60 

H$=STR$ (H): M$=STR$ (M): S$=STR$ ( S ) 

H$«FNST$(H$) :M$»FNST$(M$) :S|»FNST$(S$) 

PRINT "00:00:00 から "：SS: "秒 経« した ； 
PRINT •• 時刻 は "； H$;": ":M$; M ： ":S$;" です" 

END 



run 
秒 》 



： 10000 
：00 から 



10000 秒 » 通した 時刻 は 02 ： 46 ： 40 です 



Ok 



0123456789 



ルム 

ぶー 

ン。 

サブ 
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STRING$ 



w~m 任意の 文字 を 任意の 数 だけ 与え ま す. 




ま 



STRING$ (く 式〉, 



〈文字 式〉 
く 数式〉 



) 



ほ gy A$ = STRING$(10, 、、十つ 



与える 文字 は， 〈文字 式〉 または 〈数式〉 によって 指定し ます. 〈文字 式〉 の 場合 は， 

与える 〈文字列〉 の 最初の 一文字が 有効です. 〈数式〉 の 場合 は， 値が， 0 から 255 の 
範囲に 限られ， この 値 を キャラクタ コードと みなし， 対応す る 文字 を 採用し ます. 

参照 ： STR$ 



プログラム I 



100 INPUT A$ 
1 10 し = し EN(A$) 

120 PRINT STR1NG$ (し +4,"+") 

130 PRINT "； SPC(LEN(A$) + 1 )♦•• + •• 

140 PRINT ";A$;" ♦" 

150 PRINT "+ "； SPC(LEN(A$)+1 );"♦ 

160 PRINT STRING$(L+4,"+") 

170 END 



run 

？ STRING statement sample program 

+ + 
+ STRING statement sample program + 



Ok 
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現在の カーソルの ある 行の 任意の 位置まで 空白 を 出力し ます. 

TAB (〈数式〉） 

PRINT TAB(IO) ； 、、BASICT 




〈数式〉 の 値 は， 一 32768 から 32767( 0 が 左端） まで 許され ますが， 負の 数 はすべ て 
0 と 見なされます. また 正の 数の 場合で も， 現在の 水平 表示 文字 数 以上の 場合 は， 
〈数値〉 を そ の 水平 表示 文字 数で 割 つた 余り を 値と しま す. 

SPC との 違いに 注意して く ださい • 

注意： 日本語 データに 対する タブ 制御 は 行えません • 



参照 ： SPC 



100 FOR DEG=0 TO 180 STEP 20 

110 RAD=DEG/180«3. 14159 

120 PRINT M DEG=" IDEG; 

130 PRINT TAB( 15) M SIN(DEG)= M ;SIN(RAD); 

140 PRINT TAB(40)"COS( DEG )=";COS( RAD ) 

150 NEXT DEG 



run 
DEG- 


0 


SIN(DEG)= 


0 


COS (DEG)= 


1 

.939693 


DEG- 


20 


SIN(DEG)= 


.34202 


COS( DEG )= 


DEG= 


40 


SIN(DEG)= 


.642787 


COS ( DEG ) » 


.766045 


DEG- 


60 


SIN(DEG)- 


.866025 


COS ( DEG ) * 


.500001 


DEG- 


80 


SIN(DEG)* 


.984807 


COS ( DEG ) = 


.173649 


DEG- 


100 


SIN(DEG)= 


.984808 


COS (DEG) » - 


.173647 


DEG= 


120 


SIN(DEG)* 


.866026 


COS(DEG)= - 


.499999 


DEG- 


140 


SIN(DEG)= 


.642789 


COS(DEG)= - 


.766043 


DEG- 


160 


SIN(DEG)= 


.342022 


COS(DEG)=- 


.939692 


DEG= 
Ok 


180 


SIN(DEG): 


2.62155E-06 


COS(DEG)= - 


1 
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TAN 





正接 （タン ジ ェ ント） を 与えます, 



S] TAN (〈数式〉) 



A = TAN(123) 




〈数式〉 の 値に 対する 正接 値 を 与えます. く 数式〉 の 単位 は ラジアンです. 
〈数式〉 に 倍精度 実数が 含まれる 場合 は， 倍精度の 値 を 与えます が， 他の 場合に 
は， 単精度の 値 を 与えます. 

参照 ： SIN, COS 



100 

110 
120 
130 
140 
150 
160 
170 



C 0 T を 求める 
PI=3. 14159 
F$="cot (綱 • ）= 刚. 
I NPUT "角度 -, D 
R=D MOD 180 
IF R=0 THEN PRINT 

PRINT USING F$;D,C 



X， 》 



M 



定義で きま せん"： END 




jn 

度 

>t( 

in 

度 

>t( 



45 
45 # ) 



30 



) 



1 



1 



r 角 corft'co 
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TIME$ 



cm; 



内蔵 クロックの 時刻 を 与えます, 

；コ D TIME$ 

2) TIME$= 、、hh ： mm ： ss ク 



文 き 



PRINT TIME$ 



TIMES は システム 変数で あり 現在の 時刻 を 持って います • 

TIMES の 形式 は， 
HH ： MM ： SS 



で 示されます. 

また， TIME$ は 次の よう に 新たに 時刻 を 設定す る こ ともで きます • HH は 00 か 
ら 23 まで， MM は 00 から 59 まで， SS は 00 から 59 までの 数です. 
TIME$= 、、12 ： 30 ： OCT 



参照 ： DATES 



T 



ン プル 
ログ ラム 



150 
160 
170 
180 
190 
200 
210 
220 



240 
250 
260 

270 



- 指定 時 W 後の 時 《 を 求める 
T$»TIME$ 
PRINT " 



100 
110 
120 
130 

140 INPUT 



tt 



it 



在の 時釗は "；T$;' 'です'' 

間 （ 0 — 2 3 ) ： M ,H 



•t 



M 



s 



(0-59) 
(0-59) ： 
HH-VAl(lEFT$(T$,2)) 

SS-VA し （RIGHT$(*U:2)) 

SS=SS+S:MM=MM+M:HH=HH*H 

FOR 1=0 TO 1 
MM=MM+SS¥60:SS=SS MOD 60 
HH=HH+MM¥60:MM=MM MOD 60 
DD=DD+HH¥24:HH»HH MOD 24 

NEXT 

PRINT "求める 時刻 は- 

IF DD»1 THEN PRINT W S B CD M ; 
PRINT HH: "時 "； MM;" 分 "：SS に' 秒 
END 



で す 



M 



run 

在の 時刻 は 22:59:47 です 
fK\ (0-23) ： 18 
(0 — 59〉 ： 15 
(0-59) ： 2 
める 時 《 は 

曰 の 17 時 14 分 49 秒 です. 



現 時分 秒 求 
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USR 



I 機 能 I 機械語で 作られた 関数 ルーチン を 呼び出 します, 



rr 式， usr 〔〈番号〉〕 （〈引数〉) 



文 例 



= USR3(J) 




ユーザ一 の 作成した 機械語 関数 ルーチン （ュ一 ザ一 関数） を 呼び出します. ユー 
ザ一 関数 は， あらかじめ メモリ 中に 準備され ており， また DEF USR 文に より， 

その実 行 開始 番地が 設定され ていなければ なりません. 

く 番号〉 は 0 から 9 までの 値で， DEF 
す. 〈番号〉 が 省略され た 場合に は 0 と 解釈され ます. 

〈引数〉 により BASIC から 機械語 ルーチンへの 値の 受け渡し をす る ことができ 
ます. 

なお， USR 関数に より 機械語 ルーチン を 呼び出す 前に， DEF SEG 文に より 
DEF USR 文で USR 関数 を 定義した 時と 同じ 位置に， セグメ ント ベースが 位置 
付けられて いなければ なりません. 

機械語 ルーチン 

ています. CALL 文で は 複数の 引数 を 機械語 プログラムに 受け 渡す ことができ ま 
す. 




参照 ： DEF USR, CALL, CLEAR, BLOAD 
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VAL 



i 機 能 i 文字列の 表す 数値 を 与え ま す. 



；] VAL (〈文字列〉) 



A = VAL (、やり 



M 説 I 



〈文字 歹 IJ〉 を 数値に 変換して 与えます. もし， 〈文字 歹 IJ〉 の 最初の 文字が + ，一， & 
または 数字で なければ， VAL の 値 は 0 になります. 
ただし， 文字列 中の スペース は 無視し ます. 



参照 ： STR$ 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 



• 00:00:00 から 

• 現在の 時刻までの 秒數を 求める 

T$=TIME$ 

H-VA し （LEFT$(T$,2) ) 

SS=H*3600+M*60+S 
PRINT •' 0 0 ： 0 0 ： 0 0 から 
PRINT SS:" 秒で す 
END 



"t 



if 



まで は 



II 



run 
0 0 
Ok 



0 0 ： 0 0 から 23:07:27 まで は 83247 秒です 
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VARPTR 



変数の 値 力く 格納され ている メモリ 番地， ファイルに 割り当てられ ている ファイル 
コント ロール プロ ックの 開始 番地 を 与えます. 
1) VARPTR (く 変数 名〉 〔， く 機能〉〕） 



2) VARPTR(# く ファイル 番号〉 〔， 〈機能〉〕） 

1) PRINT HEX$(VARPTR (A, 1)) 
PRINT HEX$(VARPTR (A)) 

2) BSG% = VARPTR(#1, 1) 
BAD% 二 VARPTR (#1) 

書式 1) 〈変数 名〉 で 指定した 変数 あるいは 配列 要素の データが 格納され ている 領 

域の メモリ 番地に ついて ベース ァ ドレス あるいは 相対 ァ ドレス を 与え ま 

す. く 機能〉 の 指定 は， 0 あるいは 0 以外の 整数で 次の 意味 を 示します. 



0 

1 



相対 アドレス を 返す. 

ベース アドレス を 返す. 



なお， く 機能〉 を 省略した 場合 は， 0 が 指定され たものと みなされます 



変数 テーブル ： 



整数 型 



単精度 型 



倍精度 型 



文字 型 




VARPTR の fit で 示される. 



下位 ァ ドレス 上位 ァ ドレス 



: 【: タ] 



2 バイ ト （下位, 上位の 傾） 



データ 





4 バイ ト 




データ 



8 バイ ト 




ス ト リ ング ディ ス クリフ タ 




文字列 格納 ァ ドレス 
の オフ セッ ト 



リ ロケ ーシ ヨン コード 
文字列の 長さ 



ストリング 
ディスクリプタ 



リ ロケ ーシ ヨン コード 

&H00 VARPTR で 得た セグメ ン ト にデ 

一夕が ある. 

&H00 以外…' ベース ァ ドレス &H60( 物理 ァ ド 

レスで 言えば &H600 番地） のセ 
グメン 卜に データが ある. 



4 バイ ト 
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書式 2) 指定した く ファイル 番号〉 に 割り当てられ ている ファイル コントロール 

ブロ ックの 開始 番地に ついて， ベース アドレス あるいは 相対 ァ ドレス を 
与えます. 〈機能〉 について は， 変数の 場合と 同様に 値 を 指定し ます. 
ファイルに 割り当てられ ている 入出力 バッ フ ァの 開始 番地 は， この ファ 
イルコン トロール ブロックの 33 バイ ト 目からの 2 バイ トに 格納され てい 
ます. 
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VIEW 




文 例 



現在の ビュー ポー 卜 の 設定 位置 を 与え ま す. 



L 書 式 I VIEW (〈機能》 



SX1=VIEW(0) 





ユー ポートの 位置 （Sxb Sy 1 )-(Sx 2 , 
Sy 2 ) を 返す 関数です. 〈機能〉 は 0 から 3 までの 値 をと り， それぞれの 値のと きに 
と る 関数 値の 意味 は 次の とおり です. 

0 ： ビュー ポートの 左上の 頂点の X 座標 （SxJ 
1 ： ビュー ポートの 左上の 頂点の Y 座標 （SyJ 

2 ： ビュー ポ一 卜の 右下の 頂点の X 座標 （Sx 2 ) 

3 ： ビュー ポートの 右下の 頂点の Y 座標 （Sy 2 ) 

VIEW 関数 は， ディ ス プレイ 画面 上の ビュー ポー 卜の 位置 を 返す 関数です か 



ら， 返される 値 は， オリ 、二 




リーン 座標で ある ことに 注意して くださ レ、. 



参照 ： VIEW, MAP, WINDOW, WINDOW 関数 



サ ン 



ル 



100 
1 10 
120 
130 



170 
180 
190 
200 
210 



SCREEN 0,0 
GOSUB 

WINDOW(-100,-100)-(100, 100) 

GOSUB «VIEWINFO 

VIEW(100,50)-(300,150) 

GOSUB *VIEWINFO:END 

*VIEWINFO 
PRINT H SX1 : M ;VIEW(0) f 
PRINT M SY1 : H ;VIEW(1) 

PRINT M SX2 : M ;VIEW(2), 
PRINT M SY2 : H ;VIEW(3):PRINT 
RETURN 



o 

鲁奢 00 





o 

o 5 

5 1 



• • • • 




o 6 o 

n 1 2 1 

u 



o o 

o o 

1 3 



1 2 1 2 12 

XX XX XX k 

ss s s s s o 
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現在の ゥ インド ゥの 設定 位置 を 与え ま す. 

WINDOW (く 機能〉） 



WY1 = 





ン ドウの 位置 (W Xl , WyJ- 
(Wx 2 , Wy 2 ) を 返す 関数です. 〈機能〉 は， 0 から 3 までの 値 をと り， それぞれの 
値のと きに とる 関数 値の 意味 は 次の とおり です. 

0 ： ウイ ン ドウの 左上の 頂点の X 座標 （WxJ 
1 ： ウィンドウの 左上の 頂点の Y 座標 （WyJ 

2 ： ウイ ン ドウの 右下の 頂点の X 座標 （Wx 2 ) 

3 ： ウイ ン ドウの 右下の 頂点の Y 座標 （Wy 2 ) 

WINDOW 関数の 返す 値 は， ワール ド 座標で ある こ と に 注意して く ださい. 



参照： VIEW, VIEW 関数， MAP, WINDOW 



100 SCREEN 0,0 

110 GOSUB «WINDOWINFO 

120 VIEV(100,50)-(300,150) 

130 GOSUB *W I NDOW I NFO 

140 WINDOW (- 100, - 

150 GOSUB 

160 END 

170 «WINDOWINFO 

180 PRINT M WX1 

190 PRINT M WY1 : M ;WINDOW(l) 

200 PRINT M WX2 : M JWINDOW(2) 

210 PRINT M WY2 



•i 




1 

2 



0 

199 



1 ： 50 



1 ：-100 

2 ： 



220 RETURN 



Y Y Y Y Y Y 

w w WW WW 



o 



鲁 



9 o o o o 

3 o o o o 

6 13 11 



l 



• • : 



n 1 2 1 2 1 2 

u X X X X X X K 

r V w w w w w o 



259 



APPENDIX 



I 



A. エラーメッセージ 




エラーメッセージ 


コード 


意 味 


Bad allocation table 


69 


ディ スケッ ト 内部の FAT が 壊れて いる， 


Bad drive number 


70 


ドライブ 指定が 誤ってい る • システムに つながつ | 
ていない ドライブ を 指定した. | 


Bad file name 


56 


ファイル 名の 指定が まちがつ ている • 


Bad file number 


52 


ファイル 番号が 正しくない （同時 オープン 数 を 超 | 
えた オープン 要求). 1 


Bad track/ sector 


71 


トラック， セクタ 番号の 指定が 誤ってい る. | 
(DSKO$, DSKI$) 


Can't continue 


17 


CONT 命令に よって 実行 を 再開す る ことができ | 
ない • | 


Deleted record 


72 


消去 済みの レコード を アクセスしょう とした. 


Direct statement in file 


57 


アスキー 形式の ファイル を 読み込む 際に ダイレク | 
卜 ステートメントが 存在した. 


Disk full 


68 


ディスク 上に 書き込む スペースがない • 1 


Disk I/O error 


64 


ディスクとの 入出力 中に エラーが 発生した. 致命 
的な エラ一 であり 回復させる こと はでき ない. 


Disk offline 


62 


ディスクが セッ 卜されて いない ドライブ を ァクセ | 
ス した. | 


Division by Zero 
| (/0) 


11 


0 による 割り算が 実行され て， その 結果の 値が ォ | 
—バ —フローした. | 


Duplicate Definition 


10 


配列 または ユーザー 関数 を 二重 定義しょう とし | 
た. 1 


Duplicate label 


31 


同じ ラ ベル 名が 2 つ 以上 存在 している. 


Feature not available 


33 


利用 不可能な 機能 を 指定した. 
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エラーメッセージ 


コー ド 


意 味 

,ド 


FIELD overflow 


50 


FIELD 文に おいて 256 バイ ト 以上の 大きさの 領 
域 を 指定した. 


File already exist 


65 


NAME 文に よって 変更しょう とした ファイル 名 
が 既に 存在して いる. 


File already open 


54 


既に オープンされ ている ファイル に対して 
OPEN, KILL など を 実 f ラ した. 


File not found 


53 


指定され た ファイルが 見つからない. 


File not open 


60 


オープンされ ていない ファイル を 参照し ようとし 
た. 


File write protected 


61 


き 込 も う と した. 


FOR without NEXT 


26 


FOR〜NEXT が 正しく 対応して いない （FOR 力 5 
多い). 


Illegal direct 


12 


ダイレク トモ一 ドで 使用で きない 文 を 実行しょう 
と した. 


Illegal function call 


5 


ステートメント および 関数に おいて， 機能の 呼び 
方が 誤ってい る. 


Illegal operation 


74 


不正な キ一 ボー ド 操作 をした. 


Input past end 


55 


ファイル 中の すべての データ を 読み 尽 した 後に， 
さらに 入力 文が 実行され た. 


システム 予約 


51 




Line buffer overflow 


23 


1 行で 入力で きる 文字の 範囲 を 越えて 入力が 行わ 
れた. 


Missing operand 


22 


ステ一 トメ ン ト中 必要な パラメータが 指定され て 


NEXT without FOR 


1 


FOR〜NEXT が 正 し く 対応 していない. 
(NEXT が 多い） 
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エラー メ ッセ 



No RESUME 



Out of DATA 



Out of memory 



Out of string space 



Overflow 
(OV) 



コード 



ェ ラ 一 処理 ル 一チンの 中に RESUME 文 が な く 
プログラムの 実行が 継続で きない. 

読むべき データがない のに READ 文が 実行され 



メモリ 容量が 足り なくなった （プログラムが 大き 
すぎる， または スタック を 消費し 尽くした 等）. 



Rename across disks 



RESUME without error 



RETURN without GOSUB 



Sequential after PUT 



Sequential I/O only 



演算 結果 や 入力され た 数値が， 許される 範囲 を 越 
えた. 

NAME 文に おいて， 異なる ドライブ 間で リ ネーム 
しょう とした. 



エラ一 処理 ルーチンに 制御 を 移さなかった のに 
RESUME 文が ある. 



GOSUB〜RETURN が 正しく 対応して いな レ 
(RETURN が 多い） 



PUT 文 実行 後， シーケンシャル ファイル を ァクセ 
ス しょう とした. 



シーケンシャル 入出力 以外 は 行って はならない. 



String formula too complex 



文字 式が 複雑す ぎる. 

(力 ッコの ネス ティ ングが 深す ぎるな ど) 



String too long 



Subscript out of range 



配列 変数の 添字の 値が 規定の 範囲から 外れて いる. 



Syntax error 



文の 記述が 文法 通りに なって いない. 



Tape read error 



テープからの 読み込み 時に エラーが 発生した. 



エラーメッセージ 


コー ド 


意 味 


Type mismatch 


13 


式の 左辺 • 右辺， 関数の 引数な どに おいて 変数の 
型が一 致して いない， 


Undefined label 


32 


定義され ていない ラベル 名で 参照した. 


Undefined line number 


8 


飛び 先と して 必要と される 行 番号 （GOTO, 
GOSUB などの 飛び 先） が 存在し ない. 


Undefined user function 


18 


DEF FN 文に よって 定義され ていない ユーザ一 関 
数 を 引用しょう とした. 


Unprintable error 


21 


メ ッ セージの 定義され ていない エラ一. 


WEND without WHILE 


30 


WHILE〜WEND が 正 しく 対応して いない. 
(WEND が 多い） 


WHILE without WEND 


29 


WHILE〜WEND が 正 しく 対応して いない. 
(WHILE が 多い） 
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B. コン卜 ロール コード 一覧 



1 キャラクタ コード 

1 1 グググ ■ 


対応す る キー 


機 ― 能 


1 1 


CTRL-A 


八 , ザ 七 レ^ n , 

へ ノレ 7 千 一 と |Rj し 


2 


CTRL - B 


1 ハ Afi め つ ド A 曰え 

1 リ BIJ の ワート へ 尿 


^\ 


CTRL-C 


芙 fT の 俘！^, ス卜ソ ノヤし 1 口」 し 


4 


CTRL- D 


1 r7 にさ ||吣 
1 ヮ一 卜 削际 


D 


UTKL-t 


1 ^AllR^ 

1 fJmW 


6 


CTRL-F 


1 つ 先の ヮ一 ト へ 進む 1 


つ 

1 


じ TRL-Ca 


マレ 0 - + t な 十聿 

ス t ― 77 ゼ り 9 


8 


CTRL - H 


い ♦ "'力 *7 へ 0 *7 * 

ノ ヽッス A へ 人 


9 


CTRL - 1 


ふ^ 7 カイ カイ 七— レ ぽド* 

千 v / . グ/ 千 一 口 J し 


10 


CTRL- J 


-ノ、 ノづノ ^ k* • ィ、 ノ朴 ― k X- 一 \s ^ 9 frir 

フっノ ノィー 卜 # n にえ r し^ ij v し 7x 口' j 


11 


CTRL - K 


ホ一ム ボン ン ョ ノ 


12 


/NTT r* 1 1 

CTRL -し 


アキ ス卜 幽 圓 ク リ / 


13 


CTRL-M 


ャャ リツ ン リグ ーノ 


遞 r 

15 


CTRL-0 


幽囬 への 衣 不の瓶 > BX'J'rVJ リ哲 ん。 


18 


CTRL-R 


ィ ンサ一 トモ 一 ド 1 


19 


CTRL - S 


表示 を 一時停止 する 


21 


CTRL-U 


1 行 キャンセル 


24 


CTRL-X 


1 行の 最後へ 進む 


28 




カーソル を 右へ 移動 • 


29 




カーソル を 左へ 移動 • 


30 


t 


カーソル を 上へ 移動 • 


31 


i 


カーソル を 下へ 移動 • 



備考 * 印が ついて いるもの は， 対応す る コード を 画面に 出力す る ことにより， 機能 欄 

の 動作 を 実行させる こ とがで きます. 
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C. キャラクタ コード 



上位 4 ヒット— 





O 


1 


2 


3 


4 


5 


6 


7 


o 




。E 




0 


@ 


P 




P 


1 


S H 


D| 


！ 


1 


A 


Q 


a 


q 


2 


S X 


D 2 




2 


B 


R 


b 


r 


3 




D 3 




3 


C 


S 


c 


s 


4 




D 4 


$ 


4 


D 


T 


d 


t 


5 




N K 


% 


5 


E 


U 


e 


u 


6 


A K 


S N 




6 


F 


V 


f 


V 


7 




E B 




7 


G 


w 


g 


w 


8 




〇N 


( 


8 


H 


X 


h 


X 


9 






) 


9 




Y 


i 


y 


A 






* 


• 


J 


z 




z 


B 






+ 

^^^^^^^^^^^ 


J 


K 







k 




C 








< 


し 




1 


1 


D 










M 






m 




E 




t 


• 


> 


N 


A 


n 




F 


S, 


1 




？ 


0 




0 



F 



円 年 



月 



曰 



時分 秒 




下 立 4- ビ ッ 



関数と して 用意して いない 三角関数 のうち， いくつか は， 用意され た 関数 を 使って 作り出す 
ことができます. 以下の 数式 を 参考に してく ださい （誤差の 範囲に 注意が 必要です）. 



E. 予約語 



これらの 予約語 を 変数 名， ラベル 名と して 使用す る こと はでき ません. 



ABS 


CONT 


EOF 


INPUT 


AKCNV$ 


COPY 


EQV 


INPUTS 


ALLOC 


COS 


ERASE 


INSTR 


AND 


CSNG 


ERL 


INT 


ASC 


CSRLIN 


ERR 


IRESET 


ATN 


CVD 


ERROR 


ISET 


ATTR$ 


CVI 


EXP 


JIS$ 


AUTO 


CVS 


FIELD 


KACNV$ 


BEEP 


DATA 


FILES 


KANJI 


BLOAD 


DATE$ 


FIX 


KEXT$ 


BSAVE 


DEF 


FN 


KEY 


CALL 


DEFDBL 


FOR 


KILL 


CDBL 


DEFINT 


FRE 


KINPUT 


CHAIN 


DEFSNG 


GET 


KINSTR 


CHR$ 


DEFSTR 


GOTO 


KLEN 


CINT 


DELETE 


GO TO 


KMID$ 


CIRCLE 


DELIM 


GOSUB 


KNJ$ 


CLEAR 


DIM 


HELP 


KPLOAD 


CLOSE 


DRAW 


HEX$ 


KTYPE 


CLS 


DSKF 


IEEE 


LEFT$ 


CMD 


DSKI$ 


IF 


LEN 


COLOR 


DSKO$ 


IFC 


LET 


COM 


EDIT 


IMP 


LFILES 


COMMON 


ELSE 


INKEY$ 


LINE 


CONSOLE 


END 


INP 


LIST 
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しし lO 1 


ON 
リ丄、 


RFSTORF 


TAB 


T OAF) 


OPFN 


RFSIIMF 

XvJZ/O KJ XVI L-/ 


TAN 

丄 乂 1丄 ， 


L リし 


OPTTOM 


RFTTTRN 


THFN 


L リし/ \ 丄 じ 


OR 


ivivjn x ip 


TTMF^ 

丄 liV 丄！ ^#t|> 


t 

しリ r 


\J\J 丄 




TTMFOTIT 


しリ 


PATMT 


ROT T 

IV リし L 


TO 




r IL じ IV 


IV 。！ L 1 


TROFF 


T PPTMT 


r im、 


RUN 

IV u 丄、 


TRON 

丄 1V\» /丄、 


T CX7T 


pi ay 


c A VP 


TISTNG 


V| A TT 


POINT 


O し JVC/ 1 ^丄、 


HSR 




r WIVE/ 


o じ/ \k し n 


VAT 




POT T 




VARPTR 




r Wo 




VTFW 




PPOT I 


SON 


WAIT 




PPR 

丄 丄 丄\> 


SIN 


WBYTE 

， T U 丄 丄 1^ 


MKS$ 


PRESET 


SPACES 


WEND 


MOD 


PRINT 


SPC 


WHILE 


MON 


PSET 


SQR 


WIDTH 


MOTOR 


PUT 


SRQ 


WINDOW 


NAME 


RANDOMIZE 


STATUS 


WRITE 


NEXT 


RBYTE 


STEP 


XOR 


NEW 


READ 


STOP 




NOT 


REM 


STR$ 




OCT$ 


REN 


STRINGS 




OFF 


RENUM 


SWAP 
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